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I. INTRODUCTION 


A. PROBLEM STATEMENT 

This thesis deals with data link level interconnection of remote Local Area Net- 
works (LANs) through Critical Data Link (CDL). The Critical Data Link (CDL) is a 
full-duplex, jam-resistant, point-to-point microwave communications system for use 
in imagery and signals intelligence collection systems. The CDL system is designed 
to provide a communications protocol between two or more Fiber Distributed Data 
Interface Local Area Networks (FDDI LAN). While the collection platform LAN 
is in the form of an airborne LAN that provides sensor information, the command 
information is provided by a ground-based LAN. 

This study is concerned with the modeling of a CDL Network Interface (NI) 
using a commercially available network simulation program, MIL 3 Inc.’s Optimized 


Network Engineering Tool (OPNET). 


B. SCOPE 


The scope of this thesis is as follows: 


e Model the interconnection of FDDI LANs in the unique environment of CDL 


deployment. 
e Evaluate the efficiency of the LAN-CDL interface. 


e Establish the necessary basis for running multilink point-to-point protocol in 


CDL deployment. 


C. BENEFITS 
This thesis continues the development of CDL related simulation/modeling 
programs started in [1]. In that study, the capabilities of OPNET’s original FDDI 


LAN model were enhanced for the use in CDL deployment. We have added: 
e A model of NI that performs load balancing over multiple links. 


e A CDL model with appropriate jamming patterns that faithfully represents 


real conditions. 


Using these, we have carried out several simulation experiments to determine 


the impact of load balancing and jamming on bit throughput. 


D. ORGANIZATION 

This thesis is organized in five chapters. After a brief introduction, the discus- 
sion of FDDI LAN interconnection through CDL is provided in Chapter II. Chapter 
III presents the proposed NI model development in OPNET. The simulation results 
are supplied in Chapter IV. The conclusions and recommendations for future studies 


are in Chapter V. 


II. INTERCONNECTION OF FDDI LOCAL AREA 
NETWORKS THROUGH CDL 


A. OVERVIEW 

This chapter addresses the issues related to the interconnection of FDDI LANs 
through the unique environment of the CDL. First, architectural alternatives avail- 
able for implementing such a connectivity are discussed. Then, existing bridging 
mechanisms are considered to determine the ideal candidate for a NI for such de- 
ployment. The system specific features of CDL are also stated briefly in order to 


justify the proposed NI architecture. 


B. ISSUES IN HIGH SPEED LAN INTERCONNECTION 
1. Preliminary 

Local area networks are limited in geography, traffic handling capability, 
and the number of stations. A single LAN is not likely to meet the needs of many or- 
ganizations, specifically military applications which require sophisticated command, 
control and communication functions. 

This makes the integration of any LAN topology with other LANs through 
a communication link necessary. The protocols used to achieve this integration can 
be at either the network or data link layers of ISO’s Open Systems Interconnection 
(OSI) Model. 

Interconnection at the network layer is achieved through routing devices. 
At the data link layer it is achieved using bridges. Figure 1 shows the layer hier- 


archies. In general, each layer of an architecture is associated with an additional 
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Figure 1: Protocols relayed by the bridges and routers. 


level of addressing regardless of the functions performed within a layer. Furthermore, 
functional distinctions between them are major factors to determine the appropriate 
layer of interconnection. 

2. Bridges versus Routers 

Bridges are Medium Access Control (MAC) level store and forward de- 
vices that are independent of higher level protocols. They are transparent to commu- 
nicating end stations. This is particularly desirable in many high speed applications. 
Bridges make simple forwarding or filtering decisions, based on addressing accord- 
ing to the standardized spanning tree algorithm [2]. This algorithm calls for the 
automatic discovery of topology changes in the whole network environment. 

In a general bridge operation, frames are first received and then condi- 
tionally passed to the other LAN depending on a forwarding decision. Effectively, 
frames are filtered through the bridge. Thus, the frames having destination and 
source addresses in the same LAN are not forwarded. Although two LANs are con- 
nected in the frame level, they do not share each other’s local traffic, but only the 
cross traffic. The purpose of the bridge is to allow hosts attached to other LANs to 
communicate as if they were in the same LAN. 

In contrast to bridges, routers are network layer store and forward devices 
that rely on an entire higher level protocol suite, and they are explicitly addressed by 
the communicating end stations [3]. They are capable of searching alternate routes 
having lower transmission delays and using the best path between two nodes in the 
network. Since they can tolerate failures in links and stations, routers are designed 
to enhance availability through the entire network with the penalty of additional 
processing overheads introduced by the network layer. Therefore, bridges become 


more important in a high speed network environment. 


Recently, both technologies have begun to converge such that simultane- 
ous operation of MAC level bridging and multiple protocol routing services are pro- 
vided in a simple device. These devices are called as brouters [4]. Consequently, the 
individual attractive features of both architectures are supported with the brouters. 

In this study, the NI developed for an FDDI LAN interconnection is 
intended to be a generic model. Other high speed interface models can be developed 


either for ATM or newer networking technologies, as they reach maturity. 


C. PROPOSED BRIDGING METHOD 
1. Current Standards 

Throughout the networking evolution, bridging standardization proce- 
dures addressed the interconnection of separate LANs at geographically close points 
of attachment with local MAC bridges [2]. As LANs became more prevalent both 
in commercial and military applications, the need to interconnect geographically 
separated LANs proved inevitable. 

An emerging IEEE standard is being developed to satisfy this funda- 
mental necessity [5]. This draft standard specifies how a cluster of remote LANs 
can be bridged with remote bridges in the MAC level. Moreover, the proposed stan- 
dard provides all functionalities of local MAC bridges to remote MAC bridges with 
special additions. 

2. Remote Bridging 

Remote MAC bridges, possibly not constrained to the same geographic 
area, interconnect locally situated LANs to the one or more remote MAC bridges 
by using a non-LAN communication medium as depicted in Figure 2. MAC service 
support of remote bridges performs the equivalent communication functions of the 


conventional local bridges across a non-LAN medium. This communication medium, 


esURedt Virtual Port 


Higher Layer Entities 
(Bridge Protocol Entity, 
Bridge Management, etc.) A 













MAC Relay Entity 














: \u__ Ieemal Sublayer Service iy 


| MAC Entity 
| 
| 
| 
| 


| |_| 
LAN mi Non-LAN commun stions 


Figure 2: Remote MAC bridge architecture [5]. 


which may be any type of point-to-point link, is operated and controlled by the 
group communications entity within the remote MAC bridge. 

The group communications entity, which is represented in the virtual 
port level, is an abstract communication functionality supported by protocols and 
procedures. As will be stated in the next section, a promising candidate protocol 
for CDL deployment is the Internet Standard Point-to-Point Protocol (PPP) and 


its imbedding into this entity is being addressed in further studies [6]. 


The spanning tree algorithm and its associated procedures are reempha- 
sized in the draft standard for remote MAC bridges in order to preserve the active 
topology and provide automatic reconfiguration in the entire network. 

Remote bridge functions enforced by the spanning tree topology also 
include forwarding process and learning process associated with filtering database 
as in the case of local MAC bridges. The forwarding process filters the frames 
coming from local LAN on the basis of permissible destination addresses contained 
in the filtering database, while forwarding the frames coming from other LANs to 
their destinations. The learning process updates the filtering database by observing 
the source addresses of received frames. 

The developed model that will be discussed in the next chapter is evalu- 
ated in relation to the proposed remote MAC bridging functionality. However, it is 
not intended to be the implementation of a full-fledged remote MAC bridge. Since 
topology is restricted to a pair of FDDI LANs and probable topology changes are 
not modeled in this generic implementation, bridge functions are fitted into two sep- 
arate stations existing in the interconnected network model. As a result, subsequent 
processes for these functions are preferred to be simple forward and filter decisions 


based on a priori knowledge of the addressing database maintained in these stations. 


D. UNIQUENESS OF THE CDL ENVIRONMENT 
1. Description 
As noted before, CDL is a full-duplex, jam-resistant, point-to-point mi- 
crowave communication system that provides real-time connectivity and interoper- 
ability between multiple collection platforms and surface terminals. In our study, 
CDL is assumed to be a bundle of unidirectional point-to-point bit pipes associated 


with certain data rates along the communication medium. The bit pipes carrying 


information from surface terminals to the collection platform are grouped together 
as the command link. The link which performs the same functionality in the oppo- 
site direction is called the return link. The return link carries information such as 
voice, platform status, and data gathered by sensors from the collection platform. 
2. System Requirements 

The first set of requirements is simply related to NI architecture and its 
operation. Our model assumes the presence of FDDI LANs on both ends of the CDL 
link itself. In this thesis, the NI functions required when CDL link is established are 
addressed. Thus, the setup procedures such as link establishment and authentication 
are ignored in order to simplify the model simulation sequence. The second set of 
requirements refers to the typical CDL scenarios. The NI implementation should 
be generic so that different scenarios can be supported with a single type of NI. 
Some of the scenarios may require the LAN to be interconneceted to multiple LANs 
permitting multicasting of collected data while others may require relaying of data 
from one LAN to another. The third set of requirements determines the issues 
related to data types and quality of service (QoS). QoS, associated with the link, 
is expected to be provided in the NI using different buffering schemes. Dynamic 
monitoring of link quality will be deployed as a subsequent subprotocol of PPP in 
the further developments of our model. 

3. Asymmetry between Command and Return Link 

The number of bit pipes, and consequently data rate of the return link 
depend upon the particular CDL configuration used. The information is assumed 
to be multiplexed, formatted, and transmitted as a composite stream to the surface 
LAN at various data rates from 10 Mbps to hundreds of Mbps in the full-capacity 
configuration. Several channel hierarchies are also assumed to be available for each 


data rate with each channel being an independent data stream. 


: 


As previously stated, the command link handles the transmission of user 
commands from the surface LAN to the collection platform LAN. Contrary to the 
return link, the command link is assumed to employ a fixed data rate of 200 Kbps. 
The asymmetry cited in the duplex point-to-point link, enforces separate perfor- 
mance evaluation of the links that will be examined in the Chapter IV. 

4. Considerations on Link Utilization 

The major issue to be addressed in this unique network architecture is 
efficient utilization of the communication link. In CDL deployment, the link is time- 
critical, bandwidth is expensive, and prone to errors due to the probable interference 
and jamming in the operational environment. 

The implementation of an interconnection mechanism as multiple chan- 
nels for the return link requires proper management of these channels. There are 
several studies about high speed protocol controllers which investigate and propose 
high performance [7-9]. 

One of these approaches is the realization of a distributed multilink sys- 
tem which offers a load balancing mechanism for protocol controllers in order to 
increase the total throughput of a high speed data link control system. The pro- 
posed method for distribution of frames to multiple links evaluates several transmis- 
sion allocation algorithms. Our model employs two of the most efficient algorithms 
which are implemented in the NI. First, we modeled the circular allocation algo- 
rithm, which calls for the allocation of frames to the NI transmitters in a circular 
order regardless of the state of individual transmitter buffers [7]. Secondly, we im- 
plemented the empty selection algorithm, which requires the selection of an empty 
area in transmitting-waiting buffers for frame allocation [7]. The decision process, 
based on determining the next candidate for transmission allocation, is also carried 


out by NI in order to provide transparency to end stations. 
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Although load balancing is aimed towards the efficient multiple link uti- 
lization, side effects introduced by this procedure must be examined carefully. The 
slippage among multiple links due to different transmission capacities causes non- 
deterministic arrival times of data on the receiving end. For this reason, after the 
frames are received, reordering of them is unavoidable. Thus, the trade-off is in- 
creased receive-end buffer size necessary for this process or efficient multiple link 
utilization. Our model does not address the issues about resequencing of frames on 
the receiving end. Instead, a simple time division multiplexing procedure is per- 
formed for transmission such that consecutive frames coming from the same station 
are sent through the same transmission channel regardless of the load balancing 
algorithm in use. Thus, the reordering problem is solved automatically with this 
simplification. 

5. The Effects of Jamming 

Another feature intrinsic to CDL is varying bit error rate (BER) affecting 
links severely due to the nature of the deployment environment. A constant BER 
can not be assumed in the model during the existence of the link. The exact system 
performance must be evaluated in the presence of jamming for any typical military 
application. Therefore, the link efficiency must be investigated under two different 


types of jamming models which are described in the next chapter. 
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II]. MODELING CDL NETWORK INTERFACE IN 
OPNET 


A. OVERVIEW 
As discussed in Chapter II, the necessity to integrate two FDDI LANs to each 
other in CDL scenario, enforces crucial changes in the modular structure of OPNET 


model. All of these changes are implemented in three phases: 


e Applying the model modifications necessary to implement individual traffic, 


throughput etc. for separate FDDI LANs, 


e Modeling the linking nodes in order to accommodate the generic remote MAC 


bridge features in relation to CDL, and 
e Linking two FDDI LANs in CDL perspective. 


This chapter provides the detailed model development in the order above. The 
explanation of FDDI protocol and model in OPNET will not be presented here. 

The whole documentation for simulation development is available in the eleven 
volume set of manuals provided by MIL 3, Inc. In addition to these manuals, [1] 
serves as an extensive tutorial, particularly, for FDDI LAN development. The ex- 
periences gained through previous studies are readily documented in the aforemen- 
tioned thesis. 

The faithfulness of the developed model will also be discussed in the last section 


of the chapter. 
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B. REVISED FDDI LAN MODEL 
1. FDDI LAN Model in Brief 

OPNET provides a built-in model for FDDI LANs. The modifications 
achieved in a recent study for model development are focused on validating the FDDI 
protocol in OPNET [1]. It includes the synchronous and asynchronous transmission 
characteristics of the model. The individual throughput, mean delay and end-to- 
end delay features for the synchronous, prioritized asynchronous and total traffic in 
an FDDI LAN were modeled and examined. FDDI multicasting capability and a 
rudimentary linking node for the interface development are also introduced in [1]. 

OPNET’s FDDI LAN model is implemented in a hierarchy. Each LAN is 
represented as a ring of FDDI stations connected to each other. Figure 3 shows the 
complete ring representation of an FDDI LAN. The internal structure of a 10-station 
FDDI LAN ring is depicted in Figure 4. 

Fach station is represented as an FDDI station model which includes 
nodes connected to each other. An FDDI station model is illustrated in Figure 
5. Each node is defined by process models that are represented as state transition 
diagrams. Figures 6~8 show this modular model structure. The detailed explana- 
tions of the models will not be reviewed here for the reasons mentioned before. A 
brief introduction to revised FDDI model in OPNET is intended to lead to a better 
exposition of the model enhancement made in this thesis. 

The ultimate source that determines the behavior of a state in a process 
model, is “C” language codes embedded in that state. Thus, the modifications 
implemented throughout this thesis refer to code changes as well as the illustration 


of interconnected FDDI LAN model. 
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Figure 8: Sink process model, “fddi_sink”. 


lif 


2. Modifications on FDDI Station Model 
a. Preliminary 

The built-in FDDI LAN model in OPNET is designed such that 
only a single LAN’s statistic can be obtained at the end of the model simulation. 
This restriction forces revision of the FDDI station model, and subsequently, its 
associated process models. 

Some of the packet formats, used by all FDDI stations, are also 
modified in order to enhance the functionality of these models in relation to the 
interconnection. 

Throughout the description of model development, OPNET objects 
are highlighted with a typewriter font as a technical convention. While node models 
are highlighted with a typewriter font, process models and simulation attributes are 
set off in double quotes with the same font. Similarly, packet formats are highlighted 
in italics and double quotes within the text. 

b. Source Node Modifications 

The message traffic, in form of packets is generated in llc_sre 
which employs the “fddi_gen” process model. The information packet generated 
to be sent to mac is defined as “fddi_Ilc_fr”. This packet format is also same for 
the packets sent from mac to 1lc_sink. Moreover, the necessary interface between 
llc_sre and mac is provided by “fddi_mac_req” interface control information (ICI) 
packet format. After an information packet is received in mac, “fddi_Ilc_fr’ changes 
its form to “fddt_mac_fr”. Regardless of the functional differences between them, all 
of these packets are modified in order to be used in a bridge model. Consequently, 
three lines of code is added in the ARRIVAL state of “fddi_gen” process model to 
set the new fields of “fddi_Ilc_fr” and “fddt_mac_req’ packet formats. 
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The details about the modifications on packet formats will be stated 

in Section E of this chapter. 
c. Sink Node Modifications 

The packets are counted and the statistics are gathered in the 
1lc_sink, or in other words “fddi_sink” process model. All statistics related to a 
LAN are updated through the global variables in this process model. In the case of 
a second LAN, this global nature must be restricted to individual LANs to provide 
a realistic representation of the whole network. Thus, all statistical attributes in 
INIT and STATS are renamed to make them private for the first FDDI LAN. A 
similar procedure is performed again for a second “fddi_sink” process model. This 
process model is named as “fddi2_sink”, and it is embedded into 1lc_sink nodes 
of the second FDDI LAN that will be interconnected. Furthermore, the DISCARD 
state is modified such that statistics are gathered only for local traffic on the basis 


of incoming frames’ source addresses. 


C. BRIDGE MODEL 
1. Preliminary 
The generic remote MAC bridge that interconnects two FDDI LANs is 
composed of two separate NIs. Since symmetric modifications are done for both 
LANs, for simplicity, the NI in the colllection platform LAN is referred as CPNI, 
and the NI in the surface LAN is referred as SPNI in our FDDI-CDL model. 
2. The CPNI 
a. Station Model 
This represents the FDDI station model functioning as an NI in 


the collection platform LAN. Figure 9 is an illustration of the CPNI employing 
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Figure 9: Collection Platform LAN Network Interface (CPNI). 


simplified 137.088 Mbps mode return link hierarchy in the OPNET user interface 
window. When compared to the built-in FDDI station model of Figure 7, first 
major distinction seen is the implementation of 1lc_sink as a queue module. This 
alteration is the fundamental step in creation of a bridge link. The other differences 
from the original model include point-to-point transmitter and receiver nodes. 

This particular station examines the destination addresses of frames 
coming from both LANs. Based on the addressing, frames are either destroyed or 
forwarded to destination. If the frames are destined for the local LAN, they are 
simply passed to the local MAC level as in the FDDI protocol. The frames destined 
for surface LAN are streamed through transmitters’ buffers from 1lc_sink. Since 
the CPNI also has the full functionality of an ordinary FDDI station, any frame 
sourced from either LAN may be destined for this station address. 

While the frames destined to the CPNI coming from its local LAN 
are treated within mac, the overhead of MAC access for the frames coming from 
remote LAN via pr_1, is prevented in Logical Link Control (LLC) level. These 
frames are evaluated in the 1lc_sre and conditionally passed to the mac for trans- 
mission along the local LAN, or forwarded Bs llc_sink for destruction. Therefore, 
the frames destined for the CPNI do not need to be repeated. Instead, they are 
by-passed to lle_sink for higher layer’s access. 

The point-to-point transmitters, named pt_1 thru pt_4, are the 
return link transmission sources. Information gathered in collection platform LAN 
is conveyed to the stations on surface LAN by these transmitter nodes. Transmission 
allocation procedure is realized according to the load balancing algorithm in use. 

Conversely, the point-to-point receiver node, pr_1i is connected to 


llc_src and it serves as the command link gate to the collection platform LAN. 
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b. Source Node Modifications 
The source node of the CPNI includes “cp_fddi_gen” process model. 
This process model differs from “fddi_gen” due to the modifications implemented 
in its ARRIVAL state. In this state, frames coming from the surface LAN are de- 
termined first. If there are incoming frames, the CPNI postpones its own frame 
generation until no more frames are received. Then, the received frames’ destina- 
tion addresses are checked. Any frame destined for the CPNI is simply forwarded to 
llc_sink for destruction. Thus, these frames are not sent to mac like the rest of the 
incoming ones. The necessary interface along with the information packet is sup- 
plied to mac with “fddi_mac_req” ICI packet format. During this ICI packet transfer, 
“pri” field is set to the highest priority which is assigned to the synchronous trans- 
mission. This procedure is essential to keep the bridge model realistic. In FDDI, 
these priorities relate to LAN bandwidth allocation. Since priorities are only local 
to each LAN and FDDI frames do not contain an explicit priority field (unlike IEEE 
802.5), there is no way to determine to which priority level the frame received from 
the other LAN belongs. Therefore, once the NI receives these frames, it always 
sends them as synchronous traffic on its LAN. The “.C” code for “cp_fddi_gen” is 
provided in Appendix A. 
c. MAC Node Modifications 
The mac of the CPNI employs “cp_fddi_mac” as its process model 
(Appendix B). The modifications made to the original model are categorized in four 
groups as below. 
(1) “static” Declarations. Since we use common basic pro- 
cess models in stations with different names, the functions and variables used by 


the process models are made ‘ ‘static” to prevent name conflicts. 
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(2) INIT State. The token can be generated by any of the 
stations in the original OPNET FDDI model. To simplify the simulation sequence, 
the INIT state code is changed such that only the NI is capable of generating the first 
token. This takes effect only if the simulation environment file is set as described in 
Chapter IV. 

(3) FR_REPEAT State. The frames coming from the phys- 
ical layer are inspected on the basis of destination addresses in this state. The 
modifications in FR_REPEAT refer to the implementation of major bridge func- 
tions. While the frames addressed to the surface LAN are forwarded to 1lc_sink, 
the ones having a local destination address are propagated in the local LAN. Thus, 
the local traffic is effectively filtered by the NI. 

(4) ENCAP State. The original source address of a frame 
coming from 1lc_src needs to be preserved in this state. Furthermore, a simple 
check is made for default values of source and destination addresses in “fddi_mac_req” 
ICI packet format. Thus, “fddi_mac_fr” packets containing the same source and 
destination addresses are not erroneously composed in this state. 

d. Sink Node Modifications 

Several modifications are required to the llc_sink of the NI as 
described below. This node uses the “cp_fddi_sink” process model and acts as 
an interface between the FDDI LAN and CDL. As a result, all three states of this 
process model are modified. The modified “.C” code is in Appendix C. 

(1) INIT State. All the global statistics’ arrays which are used 
in the analysis tool are defined here. Consequently, the statistics array needed for 
the traffic monitoring of return link in each priority, is also defined in this state. 

(2) DISCARD State. Notwithstanding its name, the 


“cp_fddi_sink” process model’s DISCARD state does not discard all the frames. 
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The source and destination addresses of the frames are inspected here. The frames 
having the NI address as their destination are destroyed. Moreover, if they are gen- 
erated by local stations, the related statistics are updated. The frames destined for 
the remote LAN are not destroyed. Instead, they are counted and enqueued in the 
subqueues of 11¢c_sink for transmission. The transmitters’ status are continuously 
monitored before and after the transmission with OPNET statistical interrupts de- 
scribed in Section D. The allocation of frames to transmitters using different load 
balancing algorithms is also performed in this state. The details of this procedure 
are provided in Section E. 

(3) STATS State. This state refers to the documentation of 
statistics at the end of the simulation. It is this state that must generate the return 
link related statistics. 

3. The SPNI 
a. Station Model 

This model is one of the FDDI stations located in the surface LAN. 
The SPNI employing the same return link hierarchy mentioned above, is depicted 
in Figure 10. This station has the same functionality of the NI as in collection 
platform LAN, but in the reverse direction. As clearly seen, there exists symmetry 
in the number of transmitters and receivers with respect to its correspondent in 
collection platform LAN. The node, 1lc_sre accesses mac via pr_i thru pr_4 that 
are the downstream gates of surface LAN. The frames destined for the SPNI are 
distinguished by llc_sre and forwarded to the 1lc_sink directly. This process 
prevents the additional MAC access creating a significant overhead. 

Although the SPNI serves as a receive end-point for the return link, 


it is also capable of generating its own frames like other FDDI stations. 
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Figure 10: Surface Platform LAN Network Interface (SPNI). 


The transmitter, pt_1 is command link access node. This node han- 
dles the frames coming from 11c_sink and delivers them to the collection platform 
LAN. The forwarding and filtering decisions based on addressing, are implemented 
in 1lc_sink as in the CPNI. 

Symmetric modifications are carried out in the process models of 
spni with respect to the CPNI. Since much of the details are provided before, only 
major distinctions for each node will be stated below. 


b. Source Node Modifications 


The source node of the SPNI employs “sp_fddi_gen” as the pro- 
cess model. The modifications implemented in this process model are the same 
as “cp_fddi_gen” with one exception. In the ARRIVAL state, the frames having 
destination addresses in collection platform LAN are passed to 1lc_sink. This in- 
spection is based on the permanent database maintained in the NIs as can be seen 
in the “.C” code supplied in Appendix D. 

c. MAC Node Modifications 

The process model “sp_fddi_mac” has the same alterations as 
“cp_fddi_mac” process model’s case in INIT and ENCAP states. The same vari- 
ables and all functions are also defined as “static”. The difference appears in 
FR_REPEAT state. Thus, “.C” code provided in Appendix E includes only this 
modified state. In this state, the frames belonging to the collection platform LAN or 
addressed to the SPNI are passed to 11c_sink, while others are simply propagated. 
This decision is also made on the basis of a priori knowledge of addresses. 

d. Sink Node Modifications 
The changes in INIT and STATS states of “sp_fddi_sink” are 


symmetric to the ones in “cp_fddi_sink” process model. Furthermore, DISCARD 
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state modifications differ from “cp_fddi_sink” process model’s DISCARD state. 
In this state, the frames destined to the SPNI are destroyed and related statistics 
are updated for the surface LAN. Since there is no multiple link deployment for 
the command link, transmission capacity allocation is based on FIFO queue of 
llc_sink. For this reason, load balancing algorithms are not employed here. The 


“'C” code for “sp_fddi_sink” is provided in Appendix F. 


D. CDL MODEL 
1. OPNET Model for Point-to-Point Links 
a. Preliminary 

OPNET system models are composed of distributed subsystems 
which need a communication mechanism among them. There are several meth- 
ods available in OPNET for the communication between two subsystems, the most 
prevalent being the packet-based one. In the OPNET environment, a packet is 
a data structure facilitating information transfer from one subsystem to another. 
While packet streams, represented as the physical connections, provide transmis- 
sion between nodes in the same subsystem, the ultimate transfer of information to 
other subsystems is employed in the form of communication links. 

As mentioned in Chapter IJ, CDL deployment requires point-to- 
point link management because of the physical constraints of the environment. 
Point-to-point links, either simplex or duplex, allow packets to be transmitted be- 
tween a single pair of nodes. Each link consists of several transmission channels 
between the source and destination node that it connects. In OPNET, these nodes 


are referred to as transmitters and receivers. 
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b. ‘Transmitters 

These nodes serve as the exit points of a station for packets forwarded 
on point-to-point data transmission links. They are composed of multiple channels, 
each of which is tied to a receiver channel in a remote station via point-to-point 
link. 

Transmitters are built-in FIFO queues with infinite capacity per channel. 
These queues regulate the transmissions in a channel so that only one packet is 
transmitted on the link at any time. 

The status of any transmitter can be monitored with OPNET statistical 
interrupts. These interrupts are represented via statistics wires in the OPNET user 
interface window. Particularly, the “busy” statistic, which is fed back to a node from 
a transmitter plays the most important role for any transmission capacity allocation 
process. 

c. Receivers 

As opposed to transmitters, these nodes act as entry points of a 
station for packets received on point-to-point data transmission links. They employ 
the reverse functionality of the transmitters. After reception of packets on channels 
in the remote station, the packets are forwarded through output streams to the 
attached node of the receiver node for further processing. 

d. ‘Transceiver Pipeline Stages 

In OPNET, point-to-point links can be configured to model packet 
transmission in several ways. Each link includes a series of default or user-definable 
submodels called pipeline stages. The source code for all the default models is 


provided in <opdir>/stdmod/base directory. 
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In any pipeline stage of the model, the data related to each packet 
is used in the various computations related to its transmission. These computations 
are performed in order to identify the reception time and whether or not a packet 
is received correctly. 

Point-to-point links are based on a four stage pipeline that supports 
the transfer of packets from a transmitter to a receiver. These stages are described 
below in brief. 

(1) ‘Transmission Delay. This is the first stage of the transceiver 
pipeline. In this stage, the amount of time required for the transmission of an entire 
packet is calculated. This computation is performed independently for each packet 
transmission on the basis of channel “data rate” and length of the packet. OPNET 
employs the default transmission delay model, “dpt_txdel” for this pipeline stage. 

(2) Propagation Delay. After the first stage, packets are passed 
to the propagation delay pipeline stage. The purpose of this stage is to calculate 
the amount of time for the packet to reach the receiver in the destination node. 
The parameter necessary for this computation is the “delay” attribute of the point- 
to-point link. The default propagation delay model provided by OPNET is called 
“dpt_propdel”. 

(3) Error Allocation. Since the packets are prone to errors 
during transmission, the third stage of the transceiver pipeline allocates errors for 
transmitted packets. The default model, “dpt_error”, uses the “ber” attribute of 
the point-to-point link for this process. The algorithm implemented in this model 
generates a random number of errors with a fixed BER during the whole period of 
the simulation. 

(4) Error Detection and Correction. This is the final stage 


of point-to-point transceiver pipeline. The purpose of this stage is to determine 
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whether or not the received packet can be accepted and forwarded to its destination. 
The comparison is based on the “ecc” attribute of the receiver node. This attribute 
represents the probability of bit error that can be tolerated for acceptability. If it 
is set to zero, default model “dpt_ecc” only accepts error-free packets. Setting a 
non-zero threshold for this attribute corresponds to error correction procedure for 
the received packet. 
2. Error Modeling over Multiple Links 
a. Modifications on Error Allocation Pipeline Stage 

As stated earlier, error modeling over point-to-point links is carried 
out in the error allocation stage of transceiver pipeline. Since the default pipeline 
stage model uses a constant BER as the simulation progresses, a realistic model must 
be developed for the CDL link. For this purpose, default error model “dpt_error” 
is modified, and the new model is renamed as “cdl_pt_error’”. 

In OPNET, the necessary modifications for a pipeline stage model 
are done in the “op_models” directory. And, after these modifications, the cus- 
tomized model file must be compiled separately. So, “cdl_pt_error” model is 


compiled with the following command: 
cc -c ~ /op_models/cdl_pt_error.ps.c -I/<opdir> /sys/include 


This procedure is necessary to link other OPNET hbraries. Oth- 
erwise, binding errors result during the generation of simulation file. Appendix 
G is the file “cdl_pt_error.ps.c”, containing the modifications described in this 
section. 

In contrast to the default model, “cdl_pt_error” performs error 
allocation with a varying BER. Thus, the link attribute “ber” is disregarded in this 


stage. Instead, new attributes are specified to accomplish a dynamic error allocation 
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stage. Six different attributes are added for each channel in the extended attributes 
menu of the point- to-point link. These attributes are depicted in Figure 11, and 
defined below. 

(1) ‘“jam_ber”. This attribute is the maximum BER on the 
transmission channel of a point-to-point link during jamming. 

(2) “ber_bet_jam_len”. This attribute corresponds to the max- 
imum BER on the transmission channel of a point-to-point link in the duration 
between two consecutive jamming pulses. 

(3) “jam_length”. This is the duration of a jamming pulse af- 
fecting the transmission channel of a point-to-point link. 

(4) “interval_bet_jam_len”. This is the duration between two 
consecutive jamming pulses affecting the transmission channel of a point-to-point 
link. 

(5) “init_jam_offset”. This attribute is the initial offset time 
on the transmission channel of a point-to-point link. This offset is required for the 
channel-swept jammer which will be described later. 

(6) “jammer_type”. The last one of the extended attributes 
specifies the type of the jamming model of which CDL link is exposed to. 

b. Jammer Implementations 

There are two distinct jamming models implemented in this study. 
These are pulsed jammer and channel-swept jammer, respectively. Regardless of the 
jamming type in use, a transmitted packet is first time-stamped in simulation time 
domain. This time-stamp is used to determine whether or not a packet is subjected 
to jamming. After this decision, further procedures are carried out for each jammer 


type independently. 
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Figure 11: The attributes used for jamming patterns. 
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(1) Pulsed Jammer. In this model, all transmission channels 
are exposed to separate pulse trains in time. This configuration is achieved by 
setting up proper values for previously described extended attributes in the simula- 
tion environment file. Appendix H is a sample environment file configured for this 
particular model. 

In order to provide a more realistic representation, the durations of 
jamming pulses and BERs during these periods are also randomized with uniform 
distribution. Because of this stochastic process, first four of the extended attributes 
are actually the maximum values that can occur during transmission. Consequently, 
each transmitted packet is subjected to a different BER according to its presence in 
simulation time domain. Figure 12 is an illustration of a pulsed jammer. 

(2) Channel-Swept Jammer. The jammer implemented with 
this model sweeps each transmission channel consecutively in the simulation time 
domain. Again, the necessary configuration for this procedure is provided by the 
extended attributes’ values which are specified in the simulation environment file. 
As opposed to the previous jammer model, the channel-swept jammer does not 
randomize the durations of jamming pulses to maintain consecutive pulse scheme 
in order. However, BERs are still randomized with uniform distribution. A proper 
offset must be specified in the “init_jam_offset” extended attribute of the point- 


to- point link to provide consecutive pulses as depicted in Figure 13. 


E. LAN INTERCONNECTION 

FDDI-CDL interconnection can be realized using the modifications described 
so far. Figure 14 shows the ultimate interconnected model. While the top simplex 
point-to-point link from surface LAN (ring1) to collection platform LAN (ring0) 


represents the command link, other four links in the reverse direction represent the 
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Figure 12: Pulsed jammer representation. 
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Figure 13: Channel-swept jammer representation. 
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30 


simplified return link hierarchy. In this section, specific features of this model of 
LAN interconnection are stated. 
1. Addressing Through The Remote Bridge 

The interconnection mechanism is based on the forwarding decision made 
by the inspection of station addresses. The stations that reside on LANs have unique 
addresses. Our model employs 10-station FDDI LANs on both sides of the CDL 
link. In order to simplify MAC bridge functions, these addresses are permanently 
installed in the filtering databases of the CPNI and the SPNI. These stations, acting 
as NIs, have the maximum station number of each LAN. Thus, filtering decision 
is based on the comparison of these NI addresses. If the number of stations or 
their addresses need to be changed, those NIs’ filtering databases must be updated 
according to the new address assignments. Besides, the DISCARD state of process 
models of 11c_sink nodes of the station models in both LANs must also be modified 
appropriately to obtain individual LAN statistics. 

The address information is sent to the nodes with several packet formats 
in OPNET modeling environment. The packet format, “fddi_mac_fr’, allocates 
16 bits to represent station addresses. In current bridging standards [2, 5], the 
addresses are represented as 48 bits within a frame. Thus, the mentioned packet 
format is modified to include 48-bit source and destination addresses. Furthermore, 
the necessity to include source and destination addresses in “fddi_llc_fr’ packet 
format results in the same modification. This packet format is used in llc_sre 
nodes of NIs to prevent unnecessary MAC access as mentioned in Section C. 

For interface control purposes, “src_addr” field is also added in the 
original “fddi_mac_req” ICI packet format. This address is used by the mac to keep 


the original source address of a frame unmodified during the data transfer between 
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LANs. Figures 15-17 show the resulting packet formats in the parameter editor of 
OPNET user interface window. 
2. Load Balancing over Multiple Links 

As stated before, the return link is composed of multiple channels. In 
our model, simplified return link hierarchy is represented as four simplex point-to- 
point links, each having one transmission channel. Data rates for each channel on 
both links are specified as in Figures 18 and 19. 

This multiple channel hierarchy requires an algorithm for transmission 
capacity allocation. The selected algorithm eventually leads to load balancing over 
multiple links. In the OPNET model implemented, this procedure is carried out 
by llc_sink of the CPNI. The node, 1lc_sink, is in the form of a queue module 
consisting of four subqueues. Thus, the transmission capacity allocation process is 
basically allocating frames to these subqueues that are attached to the individual 
transmitters. In other words, the subqueues act as buffers. Instead of allocating 
frames to the transmitter buffers directly, this method is chosen to monitor the 
effects of load balancing algorithm in use. As stated in Section D, point-to-point 
transmitter buffers are built-in queues with infinite capacity. This approach would 
not be realistic for a bridge model. In a real bridge, insufficient transmission queue 
sizes can cause dropping of frames. In the CDL NI model, the frame currently being 
transmitted resides in the transmitter buffer until its transmission is completed. 
Other frames waiting for transmission reside in the finite subqueues of 1lc_sink. 
Then, these frames are forwarded to the related transmitter when the “busy” signal 
goes low, meaning that the transmitter channel is idle. This is accomplished by 
OPNET statistical interrupts, and the allocation algorithm calls for the continuous 


monitoring of this signal. 
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Figure 15: Modified packet format, “fddi_Ilc_fr’. 
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Figure 18: Return link data rates and new attributes for llc_sink. 
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Figure 19: Command link data rate. 





The algorithm can be specified for the model from the simulation envi- 
ronment file. So, an extended attribute, “load balancing algorithm’, is defined 
for the CPNI as in Figure 18. Regardless of the load balancing algorithm in use, a 
frame is allocated to a buffer, each time “cp_fddi_sink” process model is executed. 
Then, the order of subqueues is determined with an incrementing index according 
to the allocation algorithm employed. Every subqueue has an associated source 
address field, so that previously allocated frame’s source address is maintained in 
that subqueue. Two algorithms are implemented as described below. 

a. Circular Allocation Algorithm 

Before allocating frames in a circular order to 1lc_sink subqueues, 
the source address of an incoming frame is inspected first. If that frame is sent 
from a station address which has been previously allocated to that subqueue, the 
new frame is also buffered in the same subqueue. Thus, consecutive frames from 
the same source are sent over the same transmission channel. Otherwise, allocation 
is still done circularly ignoring the state of individual subqueues. Because of the 
different channel data rates, some buffers can fill up and even lead to frame loss, 
unless the sizes of these buffers are selected adequately. 

b. Empty Selection Algorithm 

This algorithm refers to the allocation of frames to subqueues hav- 
ing the maximum empty slots. The frequency of the occurrence of empty slots is 
directly proportional to the data rate of transmission channel. Thus, the buffer 
sizes needed for this algorithm are likely to be less than the ones needed for the 
previous algorithm. Allocation of consecutive frames sent from the same station 1s 


still implemented in the same manner as the circular allocation algorithm. 
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F. FAITHFULNESS OF THE MODEL 

The CDL NI model is developed with the extensive features provided by OP- 
NET. Modifications to the original models are carried out step-by-step, so that the 
original modularity is not sacrificed with new enhancements. 

The OPNET FDDI protocol model is studied and validated in [1]. Further 
model improvements of this thesis are realized on the basis of the results of this 
previous study. During the CDL model development, specific system requirements 
were primarily considered and adapted to OPNET modeling environment. 

In a real CDL deployment, depending on the deployed channel hierarchy, an 
aggregate bit stream at the high frequency is obtained using multiplexing of the 
independent transmission channels. Then, at the receiving end, demultiplexing is 
carried out. Our CDL system implementation does not model the link between 
the output of the multiplexer and the input of the demultiplexer. Instead, the 
multiplexer input and the demultiplexer output are modeled and monitored. In 
other words, the link is not modeled at the aggregate bit stream level, but at the 
individual channel level. This permits us to view the link as a set of independent 
channels rather than a single stream of bits without loosing the realistic nature of 
the link. 

The corruption of packets in a real jamming environment is of an irregular 
nature. The bits in a data stream may be inverted, or random sequences of bit 
patterns may be added to the information packet. In the OPNET modeling en- 
vironment, error allocation is done by inverting the bits present within a packet. 
So, the jammer modeling is based on this constraint. In other words we can not 
model loss of the CDL framing synchronization in OPNET. However, this study 
is targetted at the data link layer and above. Therefore, this limitation does not 


present a problem. Despite this limitation, since our jamming models use a varying 
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BER within the random durations in the simulation time domain, the desired error 
allocation feature is still provided. In the model, the error allocation process within 
a link is such that a random number of errors are introduced in a randomly selected 
packet in each channel. This is essentially what real jamming of the aggregate CDL 
bitstream will result in. Two types of jamming models are investigated in order to 
evaluate system performance in a wider variety of scenarios. 

Finally, interconnection is realized in terms of an upcoming bridging standard 


[5], so that dependability of the model is ensured. 
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IV. MODEL TESTING 


A. OVERVIEW 

This chapter provides several test results in relation to the enhanced capabili- 
ties of our model. These tests include the monitoring of traffic in the whole network 
for individual LANs and the evaluation of transmission capacity allocation algo- 
rithms for the return link. The effects of different jamming patterns on the return 


link are also demonstrated. Similarly, the command link performance is studied in 


brief. 


B. PERFORMANCE METRICS 

During the simulation tests, a moderate traffic load is offered for both LANs 
that are interconnected. The behavior of the OPNET’s FDDI model with varying 
traffic loads was studied previously [1]. Therefore, the tests are primarily run and 
evaluated for NI functional characteristics and the CDL link performance during 
jamming. 

The transmission capacity allocation algorithms related to the load balancing 
over multiple links are monitored in the 1lc_sink node of the CPNI. The buffers 
within this node are observed in order to evaluate these algorithms’ efficiency with 
the “pksize” and “delay” probes in the OPNET analysis editor. These probes 
are simply used to determine the advantages and drawbacks of the load balancing 
implementations. The “pksize” attribute’s name is misleading in OPNET probe 
editor and it refers to the number of packets residing in a subqueue. Thus, while 
“pksize” probe is the means to determine the required buffer sizes, the transmission 


waiting periods of the packets in the buffers are monitored with the “delay” probe. 
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The average BER of the return link is monitored on the SPNI receivers with 
“avg_ber” probes for each transmission channel. In this study, the BER of the 
command link during jamming is not investigated. The utilization of multiple links 
under different jamming patterns is also examined on the transmit and receive-ends 


of the link. Results of the different simulation experiments follow in the next section. 


C. TRAFFIC MONITORING 
1. Overview 
The modifications made within this thesis to the OPNET FDDI model 
provide the individual monitoring of two interconnected LANs. For CDL deploy- 
ment, the collection platform LAN is likely to direct most of the traffic to the return 
link, although there may be still an amount of local traffic under consideration. On 
the other side, the surface LAN directs some of its traffic to the command link while 
introducing a significant amount of traffic locally. For the reasons specified above, 
each LAN must be monitored independently to provide a realistic representation of 
the entire network. 
2. Setup 
The simulation was set up to display local traffic within one LAN and 
the traffic directed to the remote LAN. Both LANs consist of ten FDDI stations, 
generating packets at a constant rate. The stations generated 20000-bit packets at 
an arrival rate of 250 packets per second, so that 50 Mbps of the traffic load is 
expected for a LAN. The stations f9 and £19 are specified as the CPNI and the 
SPNI, respectively. While the surface LAN can send packets to all stations in the 
interconnected network model, the collection platform LAN is designated to direct 
its total traffic only to the return link. Both LANs are capable of generating 90 


percent asynchronous traffic at different priorities. Target Token Rotation Time 


48 


(TTRT) was set to 4ms, and necessary synchronous bandwidth was determined as 
0.08955675 as the required OPNET parameter. This value is a function of TTRT; 
it is computed by following the necessary steps as described in {1] and amounts to 
0.358227 ms/station. 

As mentioned before, the initial tokens are launched by the NIs. Thus, 
in the simulation environment file, the “spawn station” attribute is disabled by 
setting it to 20. This number is chosen arbitrarily, but it must be greater than the 
maximum station number that exists in the entire network model. This is just an 
OPNET hack to keep the “fddi_mac” process model of original “fddi_station” 
unchanged. 

Furthermore, the “accelerate_token” attribute is also disabled by set- 
ting it to zero. When this flag is enabled, the token is blocked in the station which 
has no packets to transmit. This procedure leads a faster simulation, and it is not 
part of the real FDDI protocol. The interconnected model is not allowed to use this 
shared flag, because of the tokens belonging to different LANs. 

3. Results 

Figure 20 shows the local throughput observed in the surface LAN. The 
random generation of destination addresses with uniform distribution led a consid- 
erable amount of traffic to the local stations. Figure 21 is the throughput directed 
to the command link from the surface LAN. In both cases, 90 percent of the traffic 
belongs to the asynchronous transmission as expected. 

Figures 22 and 23 show the traffic pone ited to the whole network 
by the collection platform LAN. While there is no local traffic appearing within 
this LAN, all traffic is directed to the return link with the specified proportion of 


asynchronous transmission. 
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Figure 21 
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D. RETURN LINK PERFORMANCE 
1. Overview 

The station acting as the CPNI in the collection platform LAN 1s capable 
of buffering packets in its 1lc_sink node. The buffering is realized in terms of a 
transmission capacity allocation algorithm for the efficient utilization of the return 
link. The tests run in this section are related to the evaluation of these algorithms 
and the link throughput under jamming. 

Two tests are described here. The first test is monitoring of packets 
accumulated in the buffers with two distinct allocation algorithms. The second test 
is observing the multiple link throughput at both ends of the CDL link. 

2. First Test 

a. Setup 
This test is based on the evaluation of different types of load bal- 
ancing over the multiple links. Both FDDI LANs are configured with the same 
parameters as it is done for the traffic monitoring tests. In the simulation environ- 
ment file, the “load balancing algorithm” attribute is also set appropriately for 
two different runs. This attribute is set to “O” for the circular allocation algorithm 
as it is set to “1” for the empty selection. Besides, the 11¢_sink subqueue capacities 
are set to hold a maximum of 200 packets. This was intended to observe the buffers’ 
saturation and overflow as the traffic is directed to the return link at a constant 

rate. 


b. Results 


Figure 24 shows the accumulation of packets in the buffers when 
the circular allocation algorithm is in use. As seen, the first transmission channel 


having the lowest data rate causes its buffer to fill up quickly. Consequently, the 
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Figure 24: Accumulation of packets on the CPNI buffers with circular allocation. 


continuous overflow of this buffer is unavoidable with the specified buffer size as 
depicted in Figure 25. 

Conversely, the empty selection algorithm results in equal utilization of 
buffers for the same traffic load without introducing any overflow as shown in Figure 
26. 

The queuing delays of the packets observed for each buffer using both 
algorithms are shown in Figures 27 and 28. As compared to the empty selec- 
tion algorithm, the circular load balancing provides a faster transmission rate for 


the channels having higher data rates and introduce a longer queuing delay for 
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Figure 25: Buffer overflows in the CPNI with circular allocation. 
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Figure 26: Accumulation of packets in the CPNI buffers with empty selection. 
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Figure 27: Queing delay of the CPNI buffers with circular allocation. 
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Figure 28: Queing delay of the CPNI buffers with empty selection. 
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the slower channel. Primarily, the insufficient buffer sizes are the major drawback 
in the circular allocation algorithm, even though multiple links are still efficiently 
utilized. 

As opposed to the circular allocation, empty selection algorithm does 
not require greater buffer sizes. It also offers an efficient utilization scheme with the 
penalty of more queuing delay for the channels with higher transmission capacities. 

3. Second Test 
a. Setup 

This test is intended to verify the effects of jamming models on 
the return link. The same simulation configuration is used in this test as before. 
Moreover, as defined in Chapter III, the jamming related attributes are set up prop- 
erly to model two different jammers. The environment file used for the pulsed 
jammer simulation is provided in Appendix H. For the channel-swept jammer sim- 
_ulation, the same type of jamming attributes are set to identical values except 
“init_jam_offset”. This attribute is doubled for each channel so that consecutive 
pulses can be created with proportional offsets. The jamming related attributes of 
the environment file for the channel-swept jammer simulation is in Appendix I. 

The propagation delay of the CDL model is also specified as a typical 
value of 60 ms in the “delay” attribute of each link. 

b. Results 

Figure 29 shows the throughput of each transmitter channel in the 
CPNI end of the return link. As expected, identical number of bits are injected into 
the return link for the channels having the same data rates. The packets awaiting 


transmission in the buffers do not contribute to this statistic. 
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Figure 29: Throughput at the transmit-end of the return link. 


The average BERs introduced by the pulsed jammer and the channel- 
swept jammer are depicted in Figures 30 and 31, respectively. As monitored in the 
receivers of the SPNI, all of the links are equally degraded in the channel-swept 
jammer’s case due to the consecutive pulses. In the presence of pulsed jammer, the 
links exposed to the longer duration of jamming pulses are affected more severely. 

Consequently, since the packets are corrupted due to jamming dur- 
ing the transmission, the throughput attained in the receive-end 1s not the same as 
the transmit-end of the return link. The effects of two different jamming models on 


the received throughput can be seen in Figures 32 and 33. 
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Figure 30: Average BER of the return link caused by pulsed jammer. 
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Figure 31: Average BER of the return link caused by channel-swept Jammer. 
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Figure 32: Effect of pulsed jammer on the return link throughput. 
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Figure 33: Effect of channel-swept jammer on the return link throughput. 
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E. COMMAND LINK PERFORMANCE 

Although the command link is modeled with respect to the CDL system re- 
quirements, its performance is not studied in as much detail as the return link in our 
simulations. As described before, the command link employs a relatively low fixed 
data rate in its channel hierarchy compared to the return link. Since multiple links 
are not modeled for this particular link, no algorithm for transmission allocation 
is developed in 1lc_sink node of the SPNI. As a result, the packets waiting for 
transmission to the collection platform LAN are accumulated in the single buffer of 
the SPNI. 

Figure 34 shows the number of packets buffered over time. The accumulation 
is faster due to the lower transmission capacity of the command link. This is also 
emphasized with the buffer queuing delay as depicted in Figure 35. The asymmetric 
data rates existing in the CDL link require a greater buffer size for the SPNI. This 
buffer size must be evaluated with respect to the amount of traffic injected into the 
CDL by the surface LAN. 

Similarly, the information transferred over the command link is monitored in 
both NIs of the interconnected model. Figure 36 is a simple illustration of the link 
throughput in transmit and receive-ends when the command link is not exposed to 


any jamming. 
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Figure 34: Accumulation of packets in the SPNI buffer. 
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Figure 35: Queing delay of the SPNI. 
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Figure 36: Throughput at the transmit and receive-ends of the command link. 





V. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

In this thesis, we have presented a performance analysis of a network interface 
device that interconnects two remote FDDI LANs using the CDL. The efficiency of 
the CDL model is evaluated with two different jamming patterns that faithfully rep- 
resent the real environmental conditions. The distribution of load over the multiple 
links is also investigated using different transmission capacity allocation algorithms 
so that the overall link utilization can be maximized. The need for such algorithms 
is based on the near-capacity return link traffic load that is expected in the intercon- 
nected network. It is seen that the circular allocation algorithm is able to provide 
a faster transmission for the channels having higher data rates with the penalty of 
increased buffer size for the slower channels. When the empty selection algorithm 
is in use, identical buffer sizes can be selected for any transmission channel, if the 
drawback of longer queuing delays for faster channels are acceptable. 

This thesis lays the foundation for simulating the multilink point-to-point pro- 
tocol over the CDL in the further development of the network interface features for 


the CDL project. 


B. RECOMMENDATIONS 


Further developments of our model will include: 


1. Simulation of a link monitoring protocol over the return and command 


link. This capability will facilitate feedback to the LAN applications 


63 


(end-systems) about the link status and permit end-to-end performance 


analysis. 
2. Incorporation of a forwarding/filtering database in the NI. 


3. Incorporation of a traffic generation in the LAN end-systems that is closer 


to the characteristics of real traffic patterns. 


4. Accurate estimation of NI buffer capacity for individual channels with 


various effective BERs over the link. 


Since the tool-specific token acceleration feature is disabled during our simu- 
lations, a new mechanism need to be employed for a faster simulation in a larger 


network model. 
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APPENDIX A 
CPNI SOURCE “C” CODE 


“cp_fddi_gen.pr.c” 


The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 


1 /* Process model C form file: cp_fddi_gen.pr.c */ 
2 /* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

#include "“cp_fddi_gen.pr.h" 
FSM_EXT_DECS 


an & W 


7 =/* Header block */ 
8 #define MAC_LAYER_OUT_STREAM 0 
9 #define LLC_SINK_OUT_STREAM 1 /*18APR94*/ 


10 /* define possible service classes for frames */ 
11 #define FDDI_SVC_ASYNC 0 
12 #define FDDI_SVC_SYNC 1 


13. /* define token classes */ 
14 #define FDDI_TK_NONRESTRICTED 0 
15 #define FDDI_TK_RESTRICTED 1 


16 /* State variable definitions */ 
17 typedef struct 


18 { 

19 FSM_SYS_STATE 

20 Distribution* sv_inter_dist_ptr; 
21 Distribution* sv_len_dist_ptr; 
22 Distribution* sv_dest_dist_ptr; 
23 Distribution* sv_pkt_priority_ptr; 

24 Objid sv_mac_objid; 

25 Objid sv_my_id; 

26 int sv_low_dest_addr; 
27 int sv_high_dest_addr; 
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28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 


40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
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§2 
§3 
64 
55 
56 
57 
58 


59 


60 
61 
62 
63 
64 
65 
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irit 

2nG 

int 

ant 
double 
double 
double 
Ici* 
Ici 
Ici* 
Packet* 
} cp_fddi_gen_state; 


#define pr_state_ptr 
#define inter_dist_ptr 
#define len_dist_ptr 
#define dest_dist_ptr 
#define pkt_priority_ptr 
#define mac_objid 
#define my_id 

#define low_dest_addr 
#define high _dest_addr 
#define station_addr 
#define src_addr 

#define low_pkt_priority 
#define high_pkt_priority 
#define arrival_rate 
#define mean_pk_len 
#define mac_iciptr 
#define mac_iciptril 
#define llc_ici_ptr 
#define pkptri 


sv_station_addr; 
sv_src_addr; 
sv_low_pkt_priority; 
sv_high_pkt_priority; 
SV_arrival_rate; 
sv_mean_pk_len; 
sV_async_mix; 
Sv_Mac_iciptr; 
s8Vv_mac_iciptri; 
sv_llc_ici_ptr; 
sv_pkptr1; 


((cp_fddi_gen_state*) SimI_Mod_State_Ptr) 
pr_state_ptr->sv_inter_dist_ptr 
pr_state_ptr->sv_len_dist_ptr 
pr_state_ptr->sv_dest_dist_ptr 
pr_state_ptr->sv_pkt_priority_ptr 
pr_state_ptr->sv_mac_objid 
pr_state_ptr->sv_my_id 
pr_state_ptr->sv_low_dest_addr 
pr_state_ptr->sv_high_ dest_addr 
pr_state_ptr->sv_station_addr 
pr_state_ptr->sv_src_addr 
pr_state_ptr->sv_low_pkt_priority 
pr_state_ptr->sv_high_pkt_priority 
pr_state_ptr->sv_arrival_rate 
pr_state_ptr->sv_async_mix 
pr_state_ptr->sv_mac_iciptr 
pr_state_ptr->sv_mac_iciptri 
pr_state_ptr->sv_llc_ici_ptr 
pr_state_ptr->sv_pkptri 


/* Process model interrupt handling procedure */ 


void 
cp_fddi_gen () 
{ 
Packet *pkKptr; 
int pklen; 
ab ol dest_addr; 
int i, restricted; 
int pkt_prio; 


FSM_ENTER (cp_fddi_gen) 
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69 
70 
71 
2 
73 
74 
75 
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77 
78 
79 


80 
81 
82 
83 


84 
85 
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87 
88 
89 


90 
91 
92 
93 


94 
95 
96 


97 


98 
99 


100 
101 
102 
103 
104 


105 


FSM_BLOCK_SWITCH 


/** state (INIT) enter executives **/ 

FSM_STATE_ENTER_UNFORCED (0, stateO_enter_exec, "INIT") 
2 
/* determine id of own processor to use in finding attrs */ 
my_id = op_id_self (); 


/* determine address range for uniform desination assignment */ 
op_ima_obj_attr_get (my_id, "low dest address", &low_dest_addr) ; 
op_ima_obj_attr_get (my_id, "high dest address", &high_dest_addr) ; 


/* determine object id of connected ’mac’ layer process */ 
mac_objid = op_topo_assoc (my_id, OPC_TOPO_ASSOC_OUT, 
OPC_OBJMTYPE_MODULE, 
MAC_LAYER_OUT_STREAM) ; 


/* determine the address assigned to it */ 
/* which is also the address of this station */ 
op_ima_obj_attr_get (mac_objid, "station_address", &station_addr) ; 


/* set up a distribution for generation of addresses */ 
dest_dist_ptr = op_dist_load ("“uniform_int", low_dest_addr, 
high_dest_addr) ; 


/* added 26DEC93 */ 

/* determine priority range for uniform traffic generation */ 
op_ima_obj_attr_get (my_id, “high pkt priority", &high_pkt_priority) ; 
op_ima_obj_attr_get (my_id, "low pkt priority", &low_pkt_priority); 


/* set up a distribution for generation of priorities */ 
pkt_priority_ptr = op_dist_load ("“uniform_int", low_pkt_priority, 
high_pkt_priority); 


/* above added 26DEC93 */ 


/* also determine the arrival rate for packet generation */ 
op_ima_obj_attr_get (my_id, “arrival rate", &arrival_rate) ; 


/* determine the mix of asynchronous and synchronous */ 

/* traffic. This is expressed as the proportion of */ 

/* asynchronous traffic. i.e a value of 1.0 indicates */ 
/* that all the produced traffic shall be asynchronous. */ 
op_ima_obj_attr_get (my_id, "async_mix", &async_mix); 


/* set up a distribution for arrival generations */ 
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125 


126 
127 


128 
129 
130 
131 


132 
133 
134 


135 
136 
137 
138 
139 
140 
141 
142 


if (arrival_rate != 0.0) 


&mean_pk_len) ; 


xfer) */ 





{ 
/* arrivals are exponentially distributed, with given mean 
inter_dist_ptr = op_dist_load (“constant", 1.0 / arrival_r 


/* determine the distribution for packet size */ 
op_ima_obj_attr_get (my_id, “mean pk length", 






/* set up corresponding distribution */ 
len_dist_ptr = op_dist_load ("“constant", mean_pk_len, 0.0) 
/* designate the time of first arrival */ 
fddi_gen_schedule (); 


/* set up an interface control information (ICI) structure 
/* to communicate parameters to the mac layer process */ 
/* (it is more efficient to set one up now and keep it */ 
/* as a state variable than to allocate one on each packet 


—— 


mac_iciptr = op_ici_create ("“fddi_mac_req"); 


i) 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (1,cp_fddi_gen) 


/** state (INIT) exit executives **/ 
FSM_STATE_EXIT_UNFORCED (0, stateO_exit_exec, “INIT") 


{ 
} 


/** state (INIT) transition processing **/ 
FSM_TRANSIT_FORCE (1, statel_enter_exec, ;) 


/** state (ARRIVAL) enter executives **/ 
FSM_STATE_ENTER_UNFORCED (1, statei_enter_exec, “ARRIVAL") 


{ 


/* This station should receive frames from the other lan as long as * 
/* there are frames in the input streams addressed to this lan */ 
/*check if the interrupt type is stream interrupt *//*12APR94*/ 
if(op_intrpt_type() == OPC_INTRPT_STRM) 

{ 
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/* if it is, get the packet in the input stream causing interrupt */ 
pkptri = op_pk_get(op_intrpt_strm()); 
/* get the destination address of the frame */ 
/* 16APR94 */ 
op_pk_nfd_get(pkptri, "dest_addr", &dest_addr) ; 
/* check if this frame destined for the local bridge station */ 
if(dest_addr == station_addr) 
/* if it is, send the packet to llc_sink directly */ 
/* in order to prevent overhead of mac access */ 
op_pk_send(pkptri1, 
LLC_SINK_OUT_STREAM) ; /#19APR94%/ 
else 
/* this packet is to send to mac */ 
t 
/* determine the source address of the frame */ 
op_pk_nfd_get(pkptri, "srce_addr", &src_addr); 
/* set up an ICI structure to communicate parameters to */ 
/* MAC layer process */ 
mac_iciptri = op_ici_create("fddi_mac_req") ; 
/* place the original source address into the ICI *//* 


16APR94 */ 
/* "fddi_mac_req" is modified so that it contains the original 
*/ 
/* source address from the remote lan */ 
Op_ici_attr_set(mac_iciptri1, "src_addr", src_addr); 
/* place the destination address into the ICI */ 
/*12APR94*/ 


op_ici_attr_set(mac_iciptri, "dest_addr", dest_addr); 
/* assign the service class and requested token class */ 
/* At this moment the frames coming from the remote lan 
are assumed to have*/ 
/* the same priority as synchronous frames in order not to 
accumulate */ 
/* packets on the bridge station mac and instead to deliver 
their destinations */ 
/* as soon as possible */ 
op_pk_nfd_set(pkptri, "pri", 8); 
op_ici_attr_set(mac_iciptri, “svc_class", 
FDDI_SVC_SYNC) ; 
op_ici_attr_set(mac_iciptri, "pri", 8); 
op_ici_attr_set(mac_iciptri, "tk_class", 
FDDI_TK_NONRESTRICTED) ; 
/* send the packet coupled with the ICI */ 
op_ici_install(mac_iciptr1); 
op_pk_send(pkptri1, MAC_LAYER_OUT_STREAM) ; 
} 
} 
/* otherwise, generate the frame :12APR94 */ 
else 
{ 
/* determine the length of the packet to be generated */ 
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194 


195 
196 
197 
198 
199 
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201 
202 


203 
204 


205 
206 


207 
208 


209 
210 
211 


212 
213 


214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 


230 
231 
232 


233 
234 


FDDI_SVC_ASYNC) ; 


FDDI_SVC_SYNC) ; 


pklen = op_dist_outcome (len_dist_ptr); 


/* determine the destination */ 
/* dont allow this station’s address as a possible outcome */ 


gen_packet: 
dest_addr = op_dist_outcome (dest_dist_ptr); 
if (dest_addr != -1 && dest_addr == station_addr) 


goto gen_packet; 


/* 26DEC94 & 29JAN94: determine its priority */ 
pkt_prio = op_dist_outcome (pkt_priority_ptr); 


/* create a packet to send to mac */ 
pkptr = op_pk_create_fmt ("fddi_llc_fr"); 


/* assign its overall size. */ 
op_pk_total_size_set (pkptr, pklen); 


/* assign the time of creation */ 
op_pk_nfd_set (pkptr, “cr_time", op_sim_time ()); 


/* place the destination address into the ICI */ 
/* (the protocol_type field will default) */ 
op_ici_attr_set (mac_iciptr, "“dest_addr", dest_addr) ; 


/* place the source address into the ICI *//* 17APR94*/ 
op_ici_attr_set (mac_iciptr, “src_addr", station_addr); 


/* assign the priority, and requested token class */ 
/* also assign the service class; 29JAN94: the fddi_llc_fr */ 


/* format is modified to include a "pri" field. */ 
if (op_dist_uniform (1.0) <= async_mix) 
{ 


op_pk_nfd_set (pkptr, “pri", pkt_prio); /* 29JAN94 */ 
op_ici_attr_set (mac_iciptr, "svc_class", 


op_ici_attr_set (mac_iciptr, "pri", pkt_prio); /* 29JAN94 */ 


} 

else{ 

op_pk_nfd_set (pkptr, “pri”, 8); /* 29JAN94 */ 
op_ici_attr_set (mac_iciptr, "“svc_class", 

op_ici_attr_set (mac_iciptr, “pri"“, 8); /* 29JAN94 */ 
} 


/* Request only nonrestricted tokens after transmission */ 
op_ici_attr_set (mac_iciptr, “tk_class", 


FDDI_TK_NONRESTRICTED) ; 


/* Having determined priority, assign it; 26DEC93 */ 
/* op_ici_attr_set (mac_iciptr, “pri“, pkt_prio); ¥*/ 
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235 /* send the packet coupled with the ICI */ 


236 op_ici_install (mac_iciptr); 

237 /* check if destination address is in the remote lan */ 
238 if(dest_addr > 9) 

239 /* if it is, this packet is to send llc_sink directly */ 
240 op_pk_send (pkptr, LLC_SINK_OUT_STREAM) ; 

241 /*18APR94*/ 

242 else 

243 /* if not, the packet is destined for local lan, so send to mac 
244 */ 

245 op_pk_send (pkptr, MAC_LAYER_OUT_STREAM) ; 

246 /* schedule the next arrival */ 

247 fddi_gen_schedule (); 

248 d 

249 5 

250 /** blocking after enter executives of unforced state. **/ 
251 FSM_EXIT (3,cp_fddi_gen) 

252 /** state (ARRIVAL) exit executives **/ 

253 FSM_STATE_EXIT_UNFORCED (1, statei_exit_exec, “ARRIVAL") 

254 { 

255 } 

256 /** state (ARRIVAL) transition processing **/ 

257 FSM_TRANSIT_FORCE (1, statei_enter_exec, ;) 

258 ee —  — ———  ——  ——— «/ 
259 } 

260 FSM_EXIT (0,cp_fddi_gen) 

261 } 

262 void 

263 cp_fddi_gen_svar (prs_ptr,var_name,var_p_ptr) 

264 cp_fddi_gen_state *prs_ptr; 

265 char *var_name, **var_p_ptr; 

266 { 

267 FIN (cp_fddi_gen_svar (prs_ptr)) 


(el 


268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
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292 
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294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 


307 
308 


309 
310 
311 
312 


*var_p_ptr = VOS_NIL; 


a2 


ot g 


if 


if 


if 


rf 


1t 


if 


3f 


if 


if 


nip 


if 


if 


if 


if 


if 


if 


if 


(Vos_String_Equal ("inter_dist_ptr" , var_name) ) 
*var_p_ptr = (char *) (&prs_ptr->sv_inter_dist_ptr) ; 
(Vos_String_Equal (“len_dist_ptr" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_len_dist_ptr) ; 
(Vos_String_Equal (“dest_dist_ptr" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_dest_dist_ptr) ; 
(Vos_String_Equal ("pkt_priority_ptr" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_pkt_priority_ptr) ; 
(Vos_String_Equal (‘mac_objid" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_mac_objid) ; 
(Vos_String Equal ("my_id" , var_name) ) 
*var_p_ptr = (char *) (&prs_ptr->sv_my_id); 
(Vos_String_Equal ("“low_dest_addr" , var_name) ) 
*yar_p_ptr = (char *) (&prs_ptr->sv_low_dest_addr) ; 
(Vos_String_Equal (“high dest_addr" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_high_dest_addr) ; 
(Vos_String_Equal ("“station_addr" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_station_addr) ; 
(Vos_String_Equal ("src_addr" , var_name)) 
*var_p ptr = (char *) (&prs_ptr->sv_src_addr) ; 
(Vos_String_Equal ("“low_pkt_priority" , var_name)) 
*vyar_p_ptr = (char *) (&prs_ptr->sv_low_pkt_priority) ; 
(Vos_String_Equal ("high_pkt_priority" , var_name) ) 
*var_p_ptr = (char *) (&prs_ptr->sv_high_pkt_priority) ; 
(Vos_String_Equal (“arrival_rate" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_arrival_rate) ; 
(Vos_String_Equal ("mean_pk_len" , var_name)) 
*yvar_p_ptr = (char *) (&prs_ptr->sv_mean_pk_len) ; 
(Vos_String_Equal (“async_mix" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_async_mix) ; 
(Vos_String_Equal ("“mac_iciptr" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_mac_iciptr); 
(Vos_String_Equal ("mac_iciptri" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_mac_iciptr1); 
(Vos_String_Equal ("llc_ici_ptr" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_llc_ici_ptr); 
(Vos_String_Equal ("pkptri" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_pkptr1); 


FOUT; 


} 


void 


cp_fddi_gen_diag () 
q 


Packet *pkptr; 
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313 int pklen; 


314 int dest_addr; 

315 int i, restricted; 
316 int pkt_prio; 

317 FIN (cp_fddi_gen_diag ()) 

318 FOUT; 

319 } 

320 void 

321 cp_fddi_gen_terminate () 

322 { 

323 Packet *pkptr; 

324 int pklen; 

325 int dest_addr; 

326 int i, restricted; 
327 int pkt_prio; 

328 FIN (cp_fddi_gen_terminate ()) 
329 FOUT; 

330 } 


331 Compcode 
332 cp_fddi_gen_init (pr_state_pptr) 


333 cp_fddi_gen_state **pr_state_pptr; 

334 { 

335 static VosT_Cm_Obtype obtype = OPC_NIL; 

336 FIN (cp_fddi_gen_init (pr_state_pptr)) 

337 if (obtype == OPC_NIL) 

338 { 

339 if (Vos_Catmem_Register ("proc state vars (cp_fddi_gen)", 

340 sizeof (cp_fddi_gen_state), Vos_Nop, &obtype) == VOSC_FAILURE) 
341 FRET (OPC_COMPCODE_FAILURE) 

342 } 

343 if ((*pr_state_pptr = (cp_fddi_gen_state*) Vos_Catmem_Alloc (obtype, 1)) == 
344 OPC_NIL) 

345 FRET (OPC_COMPCODE_FAILURE) 

346 else 

347 { 


13 


(*pr_state_pptr)->current_block = 0; 
FRET (OPC_COMPCODE_SUCCESS) 
} 


/* static added 2DEC93, on advice from MIL3 */ 
static 
fddi_gen_schedule () 

{ 


double inter_time; 


/* obtain an interarrival period according to the */ 
/* prescribed distribution */ 
inter_time = op_dist_outcome (inter_dist_ptr); 


/* schedule the arrival of next generated packet */ 


op_intrpt_schedule_self (op_sim_time () + inter_time, 0); 


} 
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APPENDIX B 
CPNI MAC “C” CODE 


“cp_fddi_mac.pr.c” 


The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 


ror’ 


/* Process model C form file: cp_fddi_mac.pr.c */ 
2 /* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#Hinclude <opnet.h> 

#include "“cp_fddi_mac.pr.h" 
FSM_EXT_DECS 


an -f W 


7 /* Header block */ 

8 /* Define a timer structure used to implement */ 
9  /* the TRT and THT timers. The primitives defined to */ 
10 /* operate on these timers can be found in the */ 
11 /* function block of this process model. */ 

12 typedef struct 

13 { 

14 int enabled; 

15 double start_time; 

16 double accun; 

17 double target_accum; 

18 } FddiT_Timer; 


19 /* Declare certain primitives dealing with timer.s */ 
20 double fddi_timer_remaining (); 

21 FddiT_Timer* fddi_timer_create (); 

22 double fddi_timer_value (); 


23 /* Scratch strings for trace statements */ 
24 char strO [512], stri [512]; 
25 /* define constants particular to this implementation */ 


26 #define FDDI_MAX_STATIONS 512 


27 /* define possible values for the frame control field */ 
28 #define FDDI_FC_FRAME 0 
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#define FDDI_FC_TOKEN 1 


/* define possible service classes for frames */ 


#Hdefine FDDI_SVC_ASYNC 0 
#Hdefine FDDI_SVC_SYNC 1 


/* define input stream indices */ 
#define FDDI_LLC_STRM_IN 1 
#define FDDI_PHY_STRM_IN 0 


/* define output stream indices */ 
#define FDDI_LLC_STRM_OUT 1 
#define FDDI_PHY_STRM_OUT 0 


/* define token classes */ 
#Hdefine FDDI_TK_NONRESTRICTED 0 
#define FDDI_TK_RESTRICTED 1 


/* Ring Constants */ 
#define FDDI_TX_RATE 1.0e+08 
#define FDDI_SA_SCAN_TIME 28.0e-08 


/* Token transmission time: based on 6 symbols plus 16 symbols of preamble */ 


#define FDDIC_TOKEN_TX_TIME 88.0e-08 


/* Codes used to differentiate remote interrupts */ 


#define FDDIC_TRT_EXPIRE 0 
#define FDDIC_TK_INJECT 1 


/* Define symbolic expressions used on transition */ 
/* conditions and in executive statements. */ 


#define TRT_EXPIRE \ 


(op_intrpt_type () == OPC_INTRPT_REMOTE && op_intrpt_code () == FDDIC_TRT_EXPIRE) 


#define TK_RECEIVED \ 
phy_arrival && 
frame_control == FDDI_FC_TOKEN 


#Hdefine RC_FRAME \ 
phy_arrival && 
frame_control == FDDI_FC_FRAME 


#tdefine FRAME_ARRIVAL \ 


op_intrpt_type () == OPC_INTRPT_STRM && \ 


op_intrpt_strm () == FDDI_LLC_STRM_IN 


#define STRIP my_address == src_addr 


/* Define the maximum value for ring_id. 
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66 /* maximum number of FDDI rings that can exist in a */ 
66 /* simulation. Note that if this number is changed, */ 
67 /* the initialization for fddi_claim_start below must */ 
68 /* also be modified accordingly. */ 

69 #define FDDI_MAX_RING_ID 8 


70 /* Declare the operative TTRT value ’T_Opr’ which is the final */ 

71 /* negotiated value of TTRT. This value is shared by all stations */ 
72 /* on a ring so that all agree on its value. */ 

73 double fddi_t_opr (FDDI_MAX_RING_ID]; 

74 #define Fddi_T_Opr (fddi_t_opr [ring_id]) 


7&8 /* This flag indicates that the negotiation for the final TTRT */ 
76 /* has not yet begun. It is statically initialized here, and */ 
77 /* is reset by the first station which modifies T_Opr. */ 

78 /* Initialize to 1 for all rings.+*/ 

79 static 

80 int fddi_claim_start (FDDI_MAX_RING_ID] = {1,1,1,1,1,1,1,1}; 

81 #define Fddi_Claim_Start (fddi_claim_start [ring_id]) 


82 /* Declare station latency parameters. */ 

83 /* These are true globals, so they do not need to be arrays. */ 
84 double Fddi_St_Latency; 

8&5 double Fddi_Prop_Delay; 


86 /* Declare globals for Token Acceleration Mechanism. */ 
87 /* Hop delay and token acceleration are true globals. */ 
88 double Fddi_Tk_Hop_Delay; 

89 static 

90 int Fddi_Tk_Accelerate = 1; 


91 /* These are actually values shared by all nodes on a ring, */ 

92 /* so they must be defined as arrays. */ 

93 double fddi_tk_block_base_time ([FDDI_MAX_RING_ID]; 

94 #define Fddi_Tk_Block_Base_Time (fddi_tk_block_base_time [ring_id]) 


95 int fddi_tk_block_base_station [FDDI_MAX_RING_ID]; 
96 #define Fddi_Tk_Block_Base_Station (fddi_tk_block_base_station [ring_id]) 


97 int fddi_tk_blocked (FDDI_MAX_RING_ID]; 
98 #define Fddi_Tk_Blocked (fddi_tk_blocked [ring_id]) 


99 int fddi_num_stations [FDDI_MAX_RING_ID]; 
100 #define Fddi_Num_Stations (fddi_num_stations [ring_id]) 


101 int fddi_num_registered [FDDI_MAX_RING_ID]; 
102 #define Fddi_Num_Registered (fddi_num_registered [ring_id]) 


103 Objid fddi_address_table (FDDI_MAX_RING_ID] [FDDI_MAX_STATIONS] ; 
104 #define Fddi_Address_Table (fddi_address_table [ring_id]) 
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105 /* Below is part of the OPBUG 2081 patch; FB ended here, before. -Wix */ 


106 /* Event handles for the TRT are maintained at a global level to */ 
107 /* allow token acceleration mechanism to adjust these as necessary */ 
108 /* when blocking and reinjecting the token. TRT_handle simply */ 

109 /* represents the TRT for the local MAC */ 

110 Evhandle fddi_trt_handle [FDDI_MAX_RING_ID] [FDDI_MAX_STATIONS] ; 

111 #define Fddi_Trt_Handle (fddi_trt_handle [(ring_id] ) 

112 #define TRT_handle Fddi_Trt_Handle [my_address] 


113 /* Similarly, the TRT data structure is maintained on a global level. */ 
114 FddiT_Timer* fddi_trt [FDDI_MAX_RING_ID] [FDDI_MAX_STATIONS] ; 

115 #define Fddi_Trt (fddi_trt (ring_id]) 

115 #define TRT Fddi_Trt [my_address] 


116 /* Registers to record the expiration time of each TRT when token is blocked. */ 
117 double fddi_trt_exp_time [FDDI_MAX_RING_ID] [FDDI_MAX_STATIONS] ; 
118 #define Fddi_Trt_Exp_Time (fddi_trt_exp_time [ring_id]) 


119 /* the ’Late_Ct’ flag is declared on a global level so that it can be */ 
120 /* set at the tim ewhere the token is injected back into the ring. */ 
121 int fddi_late_ct [FDDI_MAX_RING_ID] [FDDI_MAX_STATIONS] ; 

122 #define Fddi_Late_Ct (fddi_late_ct [ring_id]) 

123 #define Late_Ct Fddi_Late_Ct [my_address] 


124 /* Convenient macro for setting TRT for a given station and absolute time. */ 
125 #define TRT_SET(station_id,abs_time) \ 

126 fddi_timer_set (Fddi_Trt [station_id], abs_time - op_sim_time()); \ 

127 Fddi_Trt_Handle [station_id] = op_intrpt_schedule_remote (abs_time, \ 

128 FDDIC_TRT_EXPIRE, Fddi_Address_Table [station_id]); 


129 /* State variable definitions */ 
130 typedef struct 


131 { 

132 FSM_SYS_STATE 

133 int SV_ring_id; 

134 FddiT_Timer* sv_THT; 

135 double sv_T_Req; 

136 double sv_T_Pri [8]; 

137 Objid sv_my_objid; 

138 int sV_spawn_token; 
139 int sv_my_address; 
140 int sv_orig_src_addr; 
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141 Packet* Sv_tk_pkptr; 


142 double sv_sync_bandwidth; 
143 double SV_sync_pc; 

144 int sv_restricted; 

145 int Sv_res_peer; 

146 int sv_tk_registered; 
147 Ici* svaterllc_ici_ptr; 
148 int sv_tk_trace_on; 


149 } cp_fddi_mac_state; 


150 #define pr_state_ptr ((cp_fddi_mac_state*) SimI_Mod_State_Ptr) 
151 #define ring_id pr_state_ptr->sv_ring_id 

152 #define THT pr_state_ptr->sv_THT 

153 #define T_Req pr_state_ptr->sv_T_Req 

154 #define T_Pri pr_state_ptr->sv_T_Pri 

155 #define my_objid pr_state_ptr->sv_my_objid 

156 #define spawn_token pr_state_ptr->sv_spawn_token 
157 #define my_address pr_state_ptr->sv_my_address 

158 #define orig_srce_addr pr_state_ptr->sv_orig_src_addr 
159 #define tk_pkptr pr_state_ptr->sv_tk_pkptr 

160 #define sync_bandwidth pr_state_ptr->sv_sync_bandwidth 
161 #define sync_pc pr_state_ptr->sv_sync_pe 

162 #define restricted pr_state_ptr->sv_restricted 

163 #define res_peer pr_state_ptr->sv_res_peer 
164#define tk_registered pr_state_ptr->sv_tk_registered 
165 #define to_llc_ici_ptr pr_state_ptr->sv_to_llc_ici_ptr 
166 #define tk_trace_on pr_state_ptr->sv_tk_trace_on 


167 /* Process model interrupt handling procedure */ 


168 void 

169 cp_fddi_mac () 

170 { 

171 /* Packets and ICI’s */ 
172 Packet* mac_frame_ptr; 
173 Packet* pdu_ptr; 

174 Packet* pkptr; 

175 Packet* data_pkptr; 

176 Ici* ici_ptr; 


177 /* Packet Fields and Attributes */ 

178 int req_pri, svc_class, req_tk_class; 
179 int frame_control, src_addr, dest_addr; 
180 int pk_len, pri_level; 


181 /* Token - Related */ 
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201 
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int tk_usable, res_station, tk_class; 
int current_tk_class; 
double accum_sync; 


/* Timer - Related */ 
double tx_time, timer_remaining, accum_bandwidth; 
double tht_value; 


/* Miscellaneous */ 

int 1; 

int spawn_station, phy_arrival; 
char error_string [512]; 


int num_frames_sent, num_bits_sent; 

/* 26DEC93: loop management variables, used in RCV_TK */ 
/* and ENCAP states. -Nix * / 
int NUM_PRIOS; 

int punt ; 

int q_check; 

FSM_ENTER (cp_fddi_mac) 


FSM_BLOCK_SWITCH 

{ 

eo eaEEr * / 
/** state (INIT) enter executives +**/ 

FSM_STATE_ENTER_FORCED (0, stateO_enter_exec, “INIT") 

{ 

/* Obtain the station’s address . This is an attribute */ 

/* of this process. Addressing is simplified by */ 


/* simply using integers, and only one mode. */ 

/* This mode is 16 bit addressing unless the */ 

/* packet format ’fddi_mac_fr’ is modified. */ 

my_objid = op_id_self(); /* 29DEC93 */ 
op_ima_obj_attr_get (my_objid, “station_address", &my_address) ; 


/* Register the station’s object id in a global table. */ 
/* This table is used by the mechanism which improves */ 
/* simulation efficiency by ’jumping over’ idle periods */ 
/* rather than circulating an unusable token. */ 
fddi_station_register (my_address, my_objid); 





/* Obtain the station latency for tokens and frames. */ 

/* Default value is set at 100 nanoseconds. */ | 
Fddi_St_Latency = 100.0e-09; | 
op_ima_sim_attr_get (OPC_IMA_DOUBLE, “station_latency", &Fddi_St_Latency) ; : 
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221 /* Obtain the propagation delay separating stations. */ 


222 /* This value is given in seconds with default value 3.3 microseconds. 
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Fddi_Prop_Delay = 3.3e-06; 


op_ima_sim_attr_get (OPC_IMA_DOUBLE, "“prop_delay", &Fddi_Prop_Delay) ; 


/* Derive the Delay for a ’hop’ of a freely circulating packet. */ 
Fddi_Tk_Hop_Delay = Fddi_Prop_Delay + Fddi_St_Latency; 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


/* 
/* 
/* 


The T_Pri [] state variable array supports priority */ 


assignments on a station by station basis by */ 
establishing a correspondence between integer priority */ 


levels assigned to frames and the maximum values of the */ 
token holding timer (THT) which would allow packets to be */ 


sent. Eight levels are supported here, but this can easily */ 


be changed by redimensioning the priority array. */ 


By default all levels are identical here, allowing */ 
any frame to make use of the token, so that in fact */ 


priority levels are not used in the default case. */ 


O1JAN94: (8-i) is a quick attempt to impart different weighting 
scales on each priority level, and is not necessarily realistic.-Nix */ 


Be aware of integer-double arithmetic conflicts ie, 1/8 = 0. 


op_ima_obj_attr_get(my_objid, "“T_Req", &T_Req); 
for (i = 0; i < 8; i++) 


{ 


/* Create the token holding timer (THT) used to restrict the */ 


/* 


T_Prili] = ((double)(i + 1.0)/8.0) * Fddi_T_Opr; 

/* printf("MAC INIT: T_Pri(%d] is %1f; */ 
/*  Fddi_T_Opr is %1f\n", i, T_Prifi], Fddi_T_Opr); */ 
} 


asynchronous bandwidth consumption of the station */ 


THT = fddi_timer_create (); 


/* Create the token rotation timer (TRT) used to measure the */ 
/* rotations of the token, detect late tokens and initialize */ 


/* 


the THT timer before asynchronous tranmsmissions. */ 


TRT = fddi_timer_create (); 


/* 


Set the TRT timer to expire in one TTRT */ 


TRT_SET (my_address, op_sim_time () + Fddi_T_Opr); 


/* Initialize the Late_Ct variable which keeps track. */ 
/* of the number of TRT expirations. */ 
Late_Ct = 0; 


/* initially the ring operates in nonrestricted mode */ 
restricted = 0; 
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-Nix 


*/ 


*/ 


*/ 


262 /* Create an Interface Control Information structure */ 
263 /* to use when delivering received frames to the LLC. */ 
264 to_llc_ici_ptr = op_ici_create ("fddi_mac_ind”") ; 


265 /* The ’tk_registered’ variable indicates if the station */ 
266 /* has registered its intent to use the token. */ 
267 tk_registered = 0; 


268 /* Determine if the model is to make use of the token */ 

269 /* ’acceleration’ mechanism. If not, every passing of the */ 
270 /* token will be explicityly modeled, leading to large +*/ 
271 /* number of events being scheduled when the ring is idle */ 
272 /* (i.e, no stations have data to send). */ 

273 op_ima_sim_attr_get (OPC_IMA_INTEGER, "“accelerate_token", 

274 &Fddi_Tk_Accelerate) ; 


275 /* Obtain the synchronous bandwidth assigned */ 

276 /* to this station. It is expressed as a */ 

277 /* percentage of TTRT, and then converted to seconds */ 
278 op_ima_obj_attr_get (my_objid, "sync bandwidth", &sync_pc); 
279 sync_bandwidth = sync_pc * Fddi_T_Opr; 


280 /* Only one station in the ring is selected to */ 

281 /* introduce the first token. Test if this station is it. */ 
282 /* If so, set the ’spawn_token’ flag. */ 

283 /* op_ima_sim_attr_get (OPC_IMA_INTEGER, “spawn station", &spawn_station); */ 
284 /* spawn_token = (spawn_station == my_address); */ 

285 /* If the station is to spawn the token, create */ 

286 /* the packet which represents the token. */ 

287 /* 14APR94 :the bridges will spawn token in both rings */ 

288 /* -Karayakaylar +*/ 

289 spawn_token =1; 

290 if (spawn_token) 

291 { 

292 tk_pkptr = op_pk_create_fmt ("“fddi_mac_tk") ; 


293 /* assign its frame control field */ 
294 op_pk_nfd_set (tk_pkptr, “fc, FDDI_FC_TOKEN) ; 


295 /* the first token issued is non-restricted */ 
296 op_pk_nfd_set (tk_pkptr, "class", FDDI_TK_NONRESTRICTED) ; 


297 /* The transition will be made into the ISSU_TK ¥*/ 
298 /* state where the tk_usable variable is used. */ 
299 /* In case any data has been generated, prset */ 
300 /* this variable to one. */ 
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tk_usable = 1; 
ih 


/* When sending packets the variable accum_bandwidth is */ 

/* used as a scheduling base. Init this value to zero. */ 

/* This statement is required in case this is the spawning */ 
/* station, and the next state entered is ISSUE_TK */ 
accum_bandwidth = 0.0; 


} 


/** state (INIT) exit executives **/ 


FSM_STATE_EXIT_FORCED (0, stateO_exit_exec, "“INIT") 
{ 

\ 

/** state (INIT) transition processing **#/ 


FSM_INIT_COND (spawn_token) 
FSM_DFLT_COND 
FSM_TEST_LOGIC ("INIT") 


FSM_TRANSIT_SWITCH 

{ 

FSM_CASE_TRANSIT (0, 2, state2_enter_exec, ;) 
FSM_CASE_TRANSIT (1, 1, statei_enter_exec, ;) 


/** state (IDLE) enter executives **/ 


FSM_STATE_ENTER_UNFORCED (1, statei_enter_exec, "IDLE") 

{ 

} 

/** blocking after enter executives of unforced state. **/ 


FSM_EXIT (3,cp_fddi_mac) 


/** state (IDLE) exit executives **/ 
FSM_STATE_EXIT_UNFORCED (1, statei_exit_exec, “IDLE") 
{ 


/* Determine if a trace is activated for the FDDI model *#/ 
tk_trace_on = op_prg_odb_ltrace_active ("fddi_tk") ; 
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/* Trap packets arriving from physical layer so that their */ 
/* FC field can be extracted before evaluating conditions */ i 
if (op_intrpt_type () == OPC_LINTRPT_STRM && op_intrpt_strm () != FDDI_LLC_STRM_IN) © 
if 

/* Acquire the arriving packet. */ 
pkptr = op_pk_get (FDDI_PHY_STRM_I¥) ; 


/* Determine the type of packet by extracting */ 
/* the frame control field. */ 
op_pk_nfd_get (pkptr, "fc", &frame_control); 


/* Physical layer arrival flag is set. */ 
phy_arrival = 1; 

} 

else{ 

/* The interrupt is not due to a physical layer arrival. */ 
phy_arrival = 0; 


/* If the interrupt is a remote interrupt with specified code, it signifies */ 
/* the reinsertion of the token into the ring after an idle period. This only */ 
/* occurs if the token acceleration mechanism is active. */ 

if (op_intrpt_type () == OPC_INTRPT_REMOTE && op_intrpt_code () == FDDIC_TK_INJECT) 
{ 
/* create a new token */ 

tk_pkptr = op_pk_create_fmt ("“fddi_mac_tk"); 





/* assign its frame control field */ 
op_pk_nfd_set (tk_pkptr, "fc", FDDI_FC_TOKEN) ; 


/* the token is non-restricted */ 
op_pk_nfd_set (tk_pkptr, "class", FDDI_TK_NONRESTRICTED) ; 


/* insert it into the ring */ 

op_pk_send (tk_pkptr, FDDI_PHY_STRM_OUT) ; 
} 

} 


/** state (IDLE) transition processing **/ 
FSM_INIT_COND (TK_RECEIVED) 

FSM_TEST_COND (RC_FRAME) 

FSM_TEST_COND (TRT_EXPIRE) 

FSM_TEST_COND (FRAME_ARRIVAL) 
FSM_DFLT_COND 

FSM_TEST_LOGIC ("IDLE") 
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371 FSM_TRANSIT_SWITCH 

372 { 

373 FSM_CASE_TRANSIT (0, 3, state3_enter_exec, ;) 

374 FSM_CASE_TRANSIT (1, 4, state4_enter_exec, ;) 

375 FSM_CASE_TRANSIT (2, 7, state7_enter_exec, ;) 

376 FSM_CASE_TRANSIT (3, 8, state8_enter_exec, ;) 

377 FSM_CASE_TRANSIT (4, 1, statel_enter_exec, ;) 

378 } 
a nnn nn ns */ 


380 /** state (ISSUE_TK) enter executives **/ 

381 FSM_STATE_ENTER_FORCED (2, state2_enter_exec, “ISSUE_TK") 

382 { 

383 /* If the token is sent without having been used, and the station */ 
384 /* has no data to send, then indicate this fact to the */ 

385 /* token acceleration mechanism which may have an */ 

386 /* oppurtunity to block the token. */ 

387 if (!tk_usable && op_q_stat (OPC_QSTAT_PKSIZE) == 0.0) 

388 { 

389 /* Note that if the token cannot be blocked, */ 

390 /* this procedure will forward the token physically. */ 

391 fddi_tk_indicate_no_data (tk_pkptr, my_address, accum_bandwidth) ; 
392 } 

393 else{ 

394 if (tk_trace_on == OPC_TRUE) 

395 { j 

396 sprintf (strO, “Issuing token. accum_bw (%.9f), prop_del (%.9f)", 
397 accum_bandwidth, Fddi_Prop_Delay) ; 

398 op_prg_odb_print_major (strO, OPC_NIL); 

399 } 


400 /* Send out the token packet using the accumulated */ 

401 /* consumed bandwidth as a scheduling base. */ 

402 /* In the case of the initial spawning of the token */ 

403 /* this will be zero; otherwise this variable will */ 

404 /* reflect the bandwidth consumed since the last capture */ 

405 /* of the usable token. Propagation delay is also accounted for. */ 
406 op_pk_send_delayed (tk_pkptr, FDDI_PHY_STRM_OUT, 

407 accum_bandwidth + Fddi_Prop_Delay); 

408 } 

409 } 


410 /** state (ISSUE_TK) exit executives **/ 

411 FSM_STATE_EXIT_FORCED (2, state2_exit_exec, “ISSUE_TK") 
412 { 

413 } 
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/** state (ISSUE_TK) transition processing **/ 
FSM_TRANSIT_FORCE (1, statei_enter_exec, ;) 


/** state (RCV_TK) enter executives **/ 

FSM_STATE_ENTER_FORCED (3, state3_enter_exec, "RCV_TK") 

{ 

/* The arriving packet, when received in the IDLE state */ 

/* is placed in the variable ’pkptr’. Since it is now +*/ 

/* known that it is a token, it can be placed in ’tk_pkptr. */ 
tk_pkptr = pkptr; 


/* Load the token’s class into the temporary variable ’tk_class.’ */ 
op_pk_nfd_get (pkptr, "class", &tk_class); 


/* If the token is restricted, determine for which station. */ 

if (tk_class == FDDI_TK_RESTRICTED) 

{ 

/* Place the station address in the variable ’res_station’ */ 

/* which may factor in to the determination of token usability. */ 
op_pk_nfd_get (tk_pkptr, "res_station", &res_station); 


/* Determine if the token is usable: */ 

/* assume by default that it is not */ 

/* Subsequent conditions may override this. */ 
tk_usable = 0; 


/* The token can only be usable if there are frames enqueued */ 
/* 27DEC93: the entire bank of subqueues must be checked, */ 
/* starting at the highest priority (corresponding to */ 
/* synchronous traffic), and stopping when a packet is */ 
/* found. Then the loop is broken. -Nix */ 
NUM_PRIOS = 9; 
for (i = NUM_PRIOS - 1; i > -1; i--) 
x 
if (op_subq_stat (i, OPC_QSTAT_PKSIZE) > 0.0) 
{ 
/* examine the attributes of the packet at the */ 
/* head of the queue. */ 
fddi_load_frame_attrs (&dest_addr, &svc_class, &pri_level); 





/* If synchronous data is queued, the token is */ 

/* necessarily usable, regardless of timing conditions. */ 
if (svc_class == FDDI_SVC_SYNC) 

{ 
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474 
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487 /* 
488 if 
4s9 { 
490 /* 
491 if 
492 { 
493 /* 


tk_usable = 1; 
break; 
} 
else{ 
/* Otherwise, if asynchronous data is queued, it must */ 
/* meet several criteria for the token to be usable. */ 


/* The token is only usable only if it is early. */ 
if (Late_Ct == 0) 
{ 
/* The token’s class must be nonrestricted, unless */ 
/* this station is involved in the restricted transfer. */ 
if (tk_class == FDDI_TK_NONRESTRICTED || 
res_station == my_address | | 
restricted) 
{ 
/* Test the frame’s priority assignment against the current TRT */ 
/* This test uses the priority indirection table T_Pri */ 
/* so that only packets whose T_Pri [pri_level] exceeds */ 
/* the TRT can be transmitted. In other words, by */ 
/* assigning lower values to T_Pri for a given priority */ 
/* level, packets of that level will be further restricted +*/ 
/* from using the ring bandwidth. +/ 
if (T_Pri [pri_level] >= fddi_timer_value (TRT)) 
tt 
tk_usable = 1; 
break; 


We ye ye wy 


} /* closes the "if (op_subq_stat (OPC_QSTAT_PKSIZE) > 0.0" statment */ 
/* closes the "for" loop */ 


If the token is usable, timers must be readjusted. +*/ 
(tk_usable) 


The timer adjustment depends on whether the token is early or late. */ 
(Bate_Ct == 0) 


Transfer the contents of TRT into THT. */ 


494 fddi_timer_copy (TRT, THT); 


495 /* Disable the THT timer. */ 
496 fddi_timer_disable (THT); 


497 /* Reset TRT to time the next rotation. */ 
498 op_ev_cancel (TRT_handle); 
499 TRT_SET (my_address, op_sim_time () + Fddi_T_Opr); 
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500 } 

601 else{ 

502 /* If the token is late, set the THT to its expired */ 
503 /* value, and disable it. This will prevent any */ 
504 /* asynchronous transmissions from occuring. */ 

505 fddi_timer_set_value (THT, Fddi_T_Opr); 

506 fddi_timer_disable (THT); 


507 /* clear the Late token counter (note that TRT is not modified, */ 
508 /* so that less than a full TTRT remains before TRT expires again. */ 
509 Late_Ct = 0; 

510 } 

611 } 


512 /* If the token is not usable, different adjustments are made. */ 

§13 elsef{ 

514 /* Again, the adjustments depend on the lateness of the token */ 

615 if (Late_Ct == 0) 

616 { 

517 /* If the token is not late, the TRT is reset to time the next rotation. */ 
518 op_ev_cancel (TRT_handle) ; 

19 TRT_SET (my_address, op_sim_time () + Fddi_T_Opr); 

620 } 

§21 elsef{ 

522 /* clear the Late token counter (note that TRT is not modified, */ 
523 /* so that less than a full TTRT remains before TRT expires again. */ 
524 Late_Ct = 0; 

625 } 


§26 /* also, account for the time needed by the token *#/ 

527 /* to traverse the station, since it is about to be sent. *#/ 
528 /* Hote: station latency is not inclusive of token */ 

§29 /* transmission time, but only of the time required to *+*/ 
§30 /* process and repeat the token’s symbols. */ 

§31 accum_bandwidth = Fddi_St_Latency; 

5320) 


633 } 


534 /** state (RCV_TK) exit executives **/ 

535 FSM_STATE_EXIT_FORCED (3, state3_exit_exec, "RCV_TK") 
536 { 

637 } 


538 /** state (RCV_TK) transition processing **/ 
539 FSM_INIT_COND (tk_usable) 
540 FSM_DFLT_COND 
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641 FSM_TEST_LOGIC ("RCV_TK") , 


542 FSM_TRANSIT_SWITCH 

543 { 

544 FSM_CASE_TRANSIT (0, 9, state9_enter_exec, ;) 

545 FSM_CASE_TRANSIT (1, 2, state2_enter_exec, ;) 

546 } 

eo eee eee ee eee — */ 


548 /** state (FRLRCV) enter executives +**#/ 

549 FSM_STATE_ENTER_FORCED (4, state4_enter_exec, "FR RCV") 

550 { 

651 /* A frame has been received from the physical layer. Mote that */ 
552 /* at this time, only the leading edge of the frame has arrived. */ 


553 /* Extract the frame’s source address (this will be used to */ 
554 /* determine whether or not to strip the frame from the ring). * 
555 op_pk_nfd_get (pkptr, “src_addr", &src_addr) ; 


556 } 


557 /** state (FR_RCV) exit executives **/ 

558 FSM_STATE_EXIT_FORCED (4, state4_exit_exec, "FR_RCV") 
559 { 

560 } 


561 /** state (FR_RCV) transition processing aa / 
562 FSM_INIT_COND (STRIP) 

563 FSM_DFLT_COND 

564 FSM_TEST_LOGIC ("FR_RCV") 


565 FSM_TRANSIT_SWITCH 

666 { 

567 FSM_CASE_TRANSIT (0, 5, stateS_enter_exec, ;) 

568 FSM_CASE_TRANSIT (1, 6, state6_enter_exec, ;) 

569 } 

610 [8 qm nnn nnn nnn nnn nnn nn nn nnn nnn ener e reece rs---- */ 


571 /** state (FR_STRIP) enter executives **/ 

572 FSM_STATE_ENTER_FORCED (5, stateS_enter_exec, "FR_STRIP") 

673 { 

574 /* Destroy the frame which has now circulated the entire ring. */ 
&75 op_pk_destroy (pkptr); 

576 } 
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577 /** state (FR_STRIP) exit executives +**#/ 


578 
579 
580 


581 
582 
583 


584 
585 
586 
587 
588 
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590 
691 
592 
§93 
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609 
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FSM 
{ 
} 


/w% 
FSM 


/** 
FSM 
t 
/* 
op_ 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
at ( 
il 

/* 
pk_ 


-STATE_EXIT_FORCED (5, state5_exit_exec, "FR STRIP") 


state (FR_STRIP) transition processing **/ 
_TRANSIT_FORCE (1, statei_enter_exec, ;) 


state (FRLREPEAT) enter executives **/ 
_STATE_ENTER_FORCED (6, state6_enter_exec, "FR_REPEAT") 


Extract the destination address of the frame. */ 
pk_nfd_get (pkptr, "dest_addr", &dest_addr); 


If the frame is for this station, make a copy */ 

of the frame’s data field and forward it to */ 

the higher layer. */ 

14APR94 : In order to send the frames which are */ 

addressed to the remote lan, check the address database */ 

of remote lan. Frames addressed to the remote lan shouldn’t */ 
be repeated in the local ring -- This is a simple forwarding */ 
decision algorithm, one of the bridge’s function */ 

- Karayakaylar */ 

(dest_addr == my_address)||(dest_addr > my_address)) 


record total size of the frame (including data) */ 
len = op_pk_total_size_get (pkptr); 


/* decapsulate the data contents of the frame */ 


/* 29J3AN94: a new field, “pri”, has been added to */ 
/* the fddi_lle_fr packet format in the Parameters */ 
/* Editor, so that output statistics can be * / 
/* generated by class and priority. -Nix «/ 


op_pk_nfd_get (pkptr, "info", &data_pkptr); 
op_pk_nfd_get (pkptr, "pri", &pri_level); 


/* 
/* 
op_ 
Op_ 
op_ 


/* 
/* 
/* 
/* 
/* 


The source and destination address are placed in the */ 
LLC’s ICI before delivering the frame’s contents. */ 
ici_attr_set (to_llc_ici_ptr, "srce_addr", src_addr); 
ici_attr_set (to_llc_ici_ptr, "dest_addr", dest_addr); 
ici_install (to_llc_ici_ptr); 


Because, as noted in the FR_RCV state, only the: */ 

frame’s leading edge has arrived at this time, the */ 

complete frame can only be delivered to the higher */ 

layer after the frame’s transmission delay has elapsed. */ 
(since decapsulation of the frame data contents has occured, */ 
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619 /* the original MAC frame length is used to calculate delay) */ 
620 tx_time = (double) pk_len / FDDI_TX_RATE; 
621 op_pk_send_delayed (data_pkptr, FDDI_LLC_STRM_OUT, tx_time); 


622 /* Mote that the standard specifies that the original */ 

623 /* frame should be passed along until the originating station */ 

624 /* receives it, at which point it is stripped from the ring. */ 

625 /* However, in the simulation model, there is no interest */ 

626 /* in letting the frame continue past its destination unless */ 

627 /* group addresses are used, so that the same frame could be */ 

628 /* destined for several stations. Here the frame is stripped */ 

629 /* for efficiency as it reaches the destination; if the model */ 

630 /* is modified to include group addresses, this should be changed */ 
631 /* so that the frame is copied and the original repeated. */ 

632 /* Logic is already present for stripping the frame at the origin. */ 
633 op_pk_destroy (pkptr); 

634 } 

635 /* 14APR94 : the frames belong to this ring should be repeated. */ 
636 /* Thus, local traffic is constrained.-- This is filtering decision */ 
637 /* One of the bridge’s function - Karayakaylar */ 

638 elsef{ 

639 /* Repeat the original frame on the ring and account for */ 

640 /* the latency through the station and the propagation delay */ 

641 /* for a single hop. */ 

642 /* (Only the originating station can strip the frame). */ 

643 op_pk_send_delayed (pkptr, FDDI_PHY_STRM_OUT, 

644 Fddi_St_Latency + Fddi_Prop_Delay); 


645 } 
646 } 


647 /** state (FR_REPEAT) exit executives **/ 

648 FSM_STATE_EXIT_FORCED (6, state6_exit_exec, "FR_REPEAT") 
649 { 

650 } 


651 /** state (FR_REPEAT) transition processing **/ 
652 FSM_TRANSIT_FORCE (1, statei_enter_exec, ;) 
659) /#—----------~--------------__--___-_-------_---------------- */ 


654 /** state (TRT_EXP) enter executives **/ 

655 FSM_STATE_ENTER_FORCED (7, state7_enter_exec, "TRT_EXP") 
656 { 

657 /* The timer is reset and allowed to continue running. */ 
658 TRT_SET (my_address, op_sim_time () + Fddi_T_Opr) ; 


659 /* The late token counter is incremented. This will */ 


9] 


660 /* prevent this station from making any asynchronous */ 
661 /* transmissions when it next captures the token. */ 
662 Late_Ctt+; 


663 } 


664 /** state (TRT_EXP) exit executives +*+*/ 

665 FSM_STATE_EXIT_FORCED (7, state7_exit_exec, "TRT_EXP") 
666 { 

667 } 


668 /** state (TRT_EXP) transition processing **/ 
669 FSM_TRANSIT_FORCE (1, statei_enter_exec, ;) 
610) / =o */ 


671 /** state (ENCAP) enter executives +**/ 

672 FSM_STATE_ENTER_FORCED (8, state8_enter_exec, "ENCAP") 

673 { 

674 /* A frame has arrived from a higher layer; place it in ’pdu_ptr’. */ 
675 pdu_ptr = op_pk_get (op_intrpt_strm ()); 


676 /* Also get the interface control information */ 

677 /* associated with the new frame. */ 

678 ici_ptr = op_intrpt_ici (); 

679 if (ici_ptr == OPC_NIL) 

680 { 

681 sprintf (error_string, "Simulation aborted; error in object (%d)", 

682 op_id_self ()); 

683 op_sim_end (error_string, “fddi_mac: required ICI not received", "", " "); 
684 } 


685 /* Extract the requested service class */ 

686 /* (e.g, synchronous or asynchronous). */ 

687 if (op_ici_attr_exists (ici_ptr, "svc_class")) 

688 op_ici_attr_get (ici_ptr, "“svc_class", &svc_class); 
689 else svc_class = FDDI_SVC_ASYNC; 


690 /* Extract the destination address. */ 
691 op_ici_attr_get (ici_ptr, “dest_addr", &dest_addr) ; 


692 /* Extract the original source address from ICI :16APR94 */ 
693 op_ici_attr_get (ici_ptr, “src_addr", &orig_src_addr) ; 


694 /* If the frame is asynchronous, the priority and */ 


695 /* requested token class parameter may be specified. */ 
696 if (svc_class == FDDI_SVC_ASYNC) 


OZ 





697 { 

698 /* Extract the requested priority level. */ 
699 if (op_ici_attr_exists (ici_ptr, “pri")) 
700 op_ici_attr_get (ici_ptr, "pri", &req_pri); 
701 else req_pri = 0; 


702 /* Extract the token class (restrictred or non-restricted). */ 
703 if (op_ici_attr_exists (ici_ptr, "tk_class")) 

704 op_ici_attr_get (ici_ptr, "“tk_class", &req_tk_class); 

705 else req_tK_class = FDDI_TK_NONRESTRICTED; 

706 } 


707 /* Check for the default ICI values;if they are not present */ 
708 /* compose the frame:21APR94 */ 
709 if( dest_addr != orig_src_addr){ 


710 /* Compose a mac frame from all these elements. */ 

711 mac_frame_ptr = op_pk_create_fmt ("fddi_mac_fr"); 

712 op_pk_nfd_set (mac_frame_ptr, “svc_class", svc_class); 

713 op_pk_nfd_set (mac_frame_ptr, "“dest_addr", dest_addr); 

714 /*op_pk_nfd_set (mac_frame_ptr, "src_addr", my_address) ;*/ 

715 /* here original source address should be kept in mac frame :16APR94*/ 
716 op_pk_nfd_set (mac_frame_ptr, "src_addr", orig_src_addr) ; 

717 op_pk_nfd_set (mac_frame_ptr, "info", pdu_ptr); 

718 printf("\ndest_addr = %5d\n",dest_addr); 

719 printf ("orig_src_addr= %5d\n",orig_src_addr); 


720 if (svc_class == FDDI_SVC_ASYNC) 

721 { 

722 op_pk_nfd_set (mac_frame_ptr, "tk_class", req_tk_class); 
723 op_pk_nfd_set (mac_frame_ptr, “pri", req_pri); 

724 I; 


725 /* O4JAN94: if the frame is synchronous, assign it a separate */ 
726 /* priority so that it may be assigned its own subqueue, and */ 


728 /* thereby be assigned its own probe for monitoring. -Nix * / 
729 if (svc_class == FDDI_SVC_SYNC) 

73200 

731 op_pk_nfd_set (mac_frame_ptr, "pri", 8); 

ve 686} 


733 /* Assign the frame control field, which in the model */ 
734 /* is used to distinguish between tokens and ordinary */ 
735 /* frames on the ring. */ 

736 op_pk_nfd_set (mac_frame_ptr, "fc", FDDI_FC_FRAME) ; 


737 /* Enqueue the frame at the tail of the queue. */ 

738 /* 27DEC93: at the tail of the prioritized queue. */ 
739 /* O4JAN94: must distinguish between synch & asynch. */ 
740 if (svc_class == FDDI_SVC_ASYNC) 

741 { 
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op_subq_pk_insert (req_pri, mac_frame_ptr, OPC_QPOS_TAIL) ; 


if (sve_class == FDDI_SVC_SYNC) 
{ 
op_subq_pk_insert (8, mac_frame_ptr, OPC_QPOS_TAIL) ; 
; 


/* if this station has not yet registered its intent to */ 


/* use the token, it may do so now since it has data to send */ 


if (!tk_registered) 
{ 

fddi_tk_register (); 
tkK_registered = 1; 

} 


} /* end of if(dest_addr != orig_src_addr) statement */ 


/** state (ENCAP) exit executives **/ 
FSM_STATE_EXIT_FORCED (8, state8_exit_exec, "ENCAP") 
xf 

} 


/** state (ENCAP) transition processing **/ 
FSM_TRANSIT_FORCE (1, statel_enter_exec, ;) 


/** state (TX_DATA) enter executives **/ 


FSM_STATE_ENTER_FORCED (9, state9_enter_exec, "TX_DATA") 


{ 

/* In this state, frames are transmitted until the */ 
/* token is no longer usable. Frames are taken from */ 
/* the single input queue in FIFO order. */ 


/* Reset the accumulator used to keep track of bandwidth */ 

/* consumed by the transmissions. Because all the transmissions */ 
/* are scheduled to happen at the appropriate times, but */ 

/* these schedulings occur instantly, this accumulator serves */ 


/* as the scheduling base for the transmissions. */ 


/* In other words, each successively transmitted frame */ 

/* is delayed relative to the previous one by the time which */ 
/* the latter took to send. At the end of transmission (e.g, */ 
/* when the token is no longer usable), this accumulator */ 
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/* serves to delay the forwarding of the token. */ 
accum_bandwidth = 0.0; 


/* Note that, because all tranmsmissions are */ 
/* scheduled, the value of the THT timer will not progress */ 
/* between shcedulings (these all happen in zero time), and so */ 


/* the variable ’tht_value’ is used to emulate the timer’s progress. */ 

tht_value = fddi_timer_value (THT); 

[LE EERE ERAEE EE AEEE EEE EE EEE EEE AEE EEE EE EERE REESE / 

/* 30MAR94: print T_Prili]. THT data */ 

/* for (i = 0; i < 8; itt) */ 

/* { +/ 

/* printf("TX_DATA: T_Pril%d] = %d, THT = %d, Fddi_T_Opr = %d\n", i, T_Prili], tht_value */ 
/* } */ 

/* Reset an accumulator which reflects the consumed */ 


/* synchronous bandwidth. */ 
accum_sync = 0.0; 


/* Reset counters for transmitted frames and bits. */ 
hum_frames_sent = 0; 
hnum_bits_sent = 0; 


/* The transmission sequence must end if the input queue */ 
/* becomes exhausted. Other termination conditions are */ 


/* embedded in the loop. */ 
/* 27DEC93: modify the loop to accomodate subqueue structure. */ 
/* A “for" loop is imposed over the original "while" loop. * / 
/* First, reset the break marker, “punt”. -Nix * / 
punt = 0; 
for (i = NUM_PRIOS - 1; i > -1; i--) 

{ 
while (op_subq_stat (i,OPC_QSTAT_PKSIZE) > 0.0) 
{ 
/* Remove the next frame for transmission. */ 


pkptr = op_subq_pk_remove (i, OPC_QPOS_HEAD) ; 


/* Obtain the frame’s service class. */ 
op_pk_nfd_get (pkptr, "svc_class", &svc_class) ; 


/* Synchronous and asynchronous frames are treated differently. */ 
if (svc_class == FDDI_SVC_SYNC) 

{ 

/* Obtain the frame’s length, and compute */ 

/* the time required to transmit it. */ 

pk_len = op_pk_total_size_get (pkptr); 

tx_time = (double) pk_len / FDDI_TX_RATE; 


/* Check if synchronous bandwidth allocation for this */ 
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823 /* station would be exceeded if the transmission were to occur. */ 
824 if (accum_sync + tx_time > sync_bandwidth) 

825 { 

826 /* The frame could not be sent without exceeding */ 

827 /* the allocated synchronous bandwidth, */ 

828 /* so it is replaced on the queue. */ 

829 /* 27DEC93: in this case, i is the highest priority, */ 
830 /* which is reserved for synchronous traffic. -Nix */ 
831 op_subq_pk_insert (i, pkptr, OPC_QPOS_HEAD); 


832 /* Exit the transmission loop since the frame */ 

833 /* transmission request cannot be honored. */ 

834 punt = 1; 

835 break; 

836 } 

837 elsef{ 

838 /* Send the frame into the ring after other frames have completed. */ 

839 /* Also, account for its proagation delay; because the token propagation */ 
840 /* delay and the frame propagation delay must be consistent, and the */ 

841 /* token propagation delay is specified as a ring parameter (i.e, stations */ 
842 /* are assumed to be equally spaced), the ring is intended to run with */ 

843 /* the "delay" attributes of point-to-point links set at zero. */ 

844 op_pk_send_delayed (pkptr, FDDI_PHY_STRM_OUT, accum_bandwidth + Fddi_Prop_Delay) ; 


845 /* increase the consumed bandwidth to reflect this */ 

846 /* transmission. Also increase synchronous consumption. */ 
847 accum_bandwidth += tx_time; 

848 accum_sync += tx_time; 


849 /* Increase counters for transmitted bits and frames. */ 
850 num_frames_sentt++; 

851 num_bits_sent += pk_len; 

852 } 

853 } 

854 else{ 

855 /* The request enqueued at the head of the queue is */ 

856 /* asynchronous. It may only be honored if the THT timer */ 
857 /* has not expired. */ 

858 if (tht_value >= Fddi_T_Opr) 

859 { 

860 /* replace the packet on the queue and exit the transmission loop. */ 
861 op_subq_pk_insert (i, pkptr, OPC_QPOS_HEAD); 

862 punt = 1; 

863 break; 

864 } 

865 else{ 

866 /* Obtain the priority assignment of the frame. */ 

867 op_pk_nfd_get (pkptr, "pri", &pri_level); 


868 /* If the packet’s assigned priority level */ 
869 /* is too low for it to be serviced, then exit the loop */ 
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870 /* after replacing the packet in the queue. */ 
871 if (T_Pri [pri_level] < tht_value) 


872 { 

873 op_subq_pk_insert (i, pkptr, OPC_QPOS_HEAD) ; 
874 punt = 1; 

875 break; 

876 } 


877 /* Obtain the frame’s length, and compute the time */ 
878 /* which would be required to transmit it. */ 

879 pk_len = op_pk_total_size_get (pkptr); 

880 tx_time = (double) pk_len / FDDI_TX_RATE; 


881 /* Determine the requested token class to be */ 
882 /* released after this frame is transmitted. */ 
883 op_pk_nfd_get (pkptr, "“tk_class", &tk_class) ; 


884 /* If the station is in restricted mode, then it may */ 

885 /* exit this mode if the class is now nonrestricted */ 

886 /* or if the restricted peer is not the addressee. */ 

887 if (restricted) 

sss { 

889 /* Determine the destination address for the new packet. */ 
890 op_pk_nfd_get (pkptr, "“dest_addr", &dest_addr) ; 


891 if (tk_class == FDDI_TK_NONRESTRICTED || 

892 res_peer != dest_addr) 

s93 { 

894 /* Exit restricted mode */ 

895 restricted = 0; 

896 

897 /* Modify the token to reflect the mode change. */ 

898 op_pk_nfd_set (tk_pkptr, "class", FDDI_TK_NONRESTRICTED) ; 
g99 } 

900 } 

901 else{ 

902 /* Determine the class of the current captured token. */ 
903 op_pk_nfd_get (tk_pkptr, “class", &current_tk_class); 


904 /* When not in restricted mode, this mode may be entered */ 

905 /* if the passed packet has the appropriate token class requested, */ 

906 /* and the token is not already restricted. */ 

907 if (tk_class == FDDI_TK_RESTRICTED && current_tk_class != FDDI_TK_RESTRICTED) 
908 { 


909 /* Enter restricted mode. */ 
910 restricted = 1; 


911 /* Store the address of the resticted peer station. */ 
912 op_pk_nfd_get (pkptr, “dest_addr", &res_peer) ; 
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/* Modify the token to reflect the mode change. */ 
op_pk_nfd_set (tk_pkptr, "class", FDDI_LTK_RESTRICTED) ; 
op_pk_nfd_set (tk_pkptr, "res_station", res_peer); 

} 

} 


/* Send the frame once previous transmissions have completed. */ 
/* Account for propagation delay as well. */ 
op_pk_send_delayed (pkptr, FDDI_PHY_STRM_OUT, accum_bandwidth + Fddi_Prop_Delay) ; 


/* Increment THT emulation variable, and consumed bandwidth accumulator. ¥*/ 
tht_value += tx_time; 
accum_bandwidth += tx_time; 


/* Increase counters for transmitted bits and frames. */ 
num_frames_sent++; 
num_bits_sent += pk_len; 


} 

} 

} /* closes the ’while’ loop */ 

if (punt == 1) /* If the ’while’ loop was broken, * / 
{ 
punt = 0; /* then reset the ’break’ marker, » / 
break; /* and break out of the ’for’ loop too. */ 
} 

} /* closes the ’for’ loop. ¥*/ 


/* Since the token is about to be sent, its transmission time */ 
/* must be reflected in the accumulated bandwidth. This is not */ 
/* done in the ISSUE_TK state because when the token is merely */ 
/* repeated, full transmission delay is not required, only */ 

/* a small delay for repeating. */ 

accum_bandwidth += FDDIC_TOKEN_TX_TIME; 


/* If the station has no more data to send (synchronous or */ 

/* asynchronous), it should indicate this to the token acceleration */ 
/* mechanism by deregistering its interest in the token. */ 

/* 27DEC94: the original code must be modified to include a check +*/ 


/* of subqueues. -Nix */ 
q_check = 1; 
for (i = NUM_PRIOS - 1; i < -1; i--) 
{ 
if (op_subq_stat (i, OPC_QSTAT_PKSIZE) == 0.0) 
{ 
q_check = 0; 
} 
else { 
q_check = 1; 
break; 
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959 if (tk_registered && q_check == 0) 
960 { 

961 tk_registered = 0; 

962 fddi_tk_deregister (); 

963 } 


964 } 


965 /** state (TX_DATA) exit executives +*#/ 

966 FSM_STATE_EXIT_FORCED (9, state9_exit_exec, “TX_DATA") 
967 { 

968 } 


969 /** state (TX_DATA) transition processing **/ 
970 FSM_TRANSIT_FORCE (2, state2_enter_exec, ;) 
a a a aaa «/ 


972 /** state (CLAIM) enter executives +*+/ 

973 FSM_STATE_ENTER_UNFORCED (10, state10_enter_exec, “CLAIM") 
974 { 

975 /* Obtain this station’s object id which is used #/ 

976 /* to access the station’s attribute assignments. */ 

977 my_objid = op_id_self (); 


978 /* Using the object id, obtain the ring id. */ 

979 /* The ring id is used by macros defined in the *#/ 
980 /* header block to obtain "ring-global" values, */ 
981 /* values shared by all stations on a ring. */ 

982 op_ima_obj_attr_get (my_objid, “ring_id", &ring_id); 


983 /* Initialize global variable values. +*/ 
984 Fddi_Tk_Blocked = 0; 

985 Fddi_Num_Stations = 0; 

986 Fddi_Num_Registered = 0; 


987 /* Using the object id, obtain the value of ’T_Req’, */ 
988 /* the value of TTRT requested by this station. */ 
989 op_ima_obj_attr_get (my_objid, "T_Req", &T_Req); 


990 /* 30MAR: workaround; Fddi_T_Opr is never initialized in the */ 


991 /* original code. -Nix «/ 
992 Fddi_T_Opr = 500; 


99 


993 /* The lowest value of T_Req becomes T_Opr for the ring as a whole. * / 
994 if (T_Req < Fddi_T_Opr || Fddi_Claim_Start) 

995 { 

996 /* The T_Req for this station is lower than any other to date */ 

997 /* so it is installed in the T_Opr variable. */ 

998 Fddi_T_Opr = T_Req; 


999 /* The flag indicating that the claim process is just */ 
1000 /* beginning may now be cleared. */ 

1001 Fddi_Claim_Start = 0; 

1002. } 


1003 /* Request a self interrupt from the Smulation Kernel at the current 
1004 /* time so that after all stations have executed their claim states, */ 
1005 /* they can proceed with initializations. This is necessasary */ 

1006 /* because some initializations are based in the value of T_Opr */ 

1007 /* and it must therefore be known that all stations have settled */ 
1008 /* on a final value. */ 

1009 op_intrpt_schedule_self (op_sim_time (), 0); 


1010 } 


1011 /** blocking after enter executives of unforced state. **/ 
1012 FSM_EXIT (21,cp_fddi_mac) 


1013 /** state (CLAIM) exit executives **/ 

1014 FSM_STATE_EXIT_UNFORCED (10, state10_exit_exec, "CLAIM") 
1015 { 

1016 } 


1017 /** state (CLAIM) transition processing **/ 
1018 FSM_TRANSIT_FORCE (0, stateO_enter_exec, ;) 
1019 | 8-38 */ 


1020 } 


1021 FSM_EXIT (10,cp_fddi_mac) 
1022 } 


100 





1023 
1024 
1025 
1026 
1027 


1028 


1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 


1062 
1063 


1064 
1065 


void 

cp_fddi_mac_svar (prs_ptr,var_name,var_p_ptr) 
cp_fddi_mac_state *prs_ptr; 
char *var_name, **var_p_ptr; 


{ 
FIN (cp_fddi_mac_svar (prs_ptr)) 


*var_p_ptr = VOS_NIL; 

if (Vos_String_Equal (“ring_id" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_ring_id) ; 

if (Vos_String_Equal ("THT" , var_name)) 

*var_p_ptr = (char *) (&prs_ptr->sv_THT) ; 

if (Vos_String_Equal ("T_Req" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_T_Req); 

if (Vos_String_Equal ("T_Pri“ , var_name)) 
*vyar_p_ptr = (char *) (prs_ptr->sv_T_Pri); 

if (Vos_String_Equal ("my_objid" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_my_objid); 

if (Vos_String_Equal ("spawn_token" , var_name) ) 
*var_p_ptr = (char *) (&prs_ptr->sv_spawn_token) ; 
if (Vos_String_Equal ("my_address" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_my_address) ; 

if (Vos_String_Equal (“orig_src_addr" , var_name) ) 
*var_p_ptr = (char *) (&prs_ptr->sv_orig_src_addr) ; 
if (Vos_String_Equal ("tk_pkptr" , var_name)) 
*yar_p_ptr = (char *) (&prs_ptr->sv_tk_pkptr) ; 

if (Vos_String_Equal (“sync_bandwidth" , var_name)) 
*yar_p_ptr = (char *) (&prs_ptr->sv_sync_bandwidth) ; 
if (Vos_String_Equal ("sync_pc" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_sync_pc) ; 

if (Vos_String_Equal ("restricted" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_restricted); 

if (Vos_String_Equal ("res_peer" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_res_peer) ; 

if (Vos_String_Equal ("tk_registered" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_tk_registered) ; 
if (Vos_String_Equal ("“to_llc_ici_ptr" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_to_llc_ici_ptr); 
if (Vos_String_Equal ("tk_trace_on" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_tk_trace_on); 


FOUT; 
} 


void 
cp_fddi_mac_diag () 


1066 { 
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1067 /* Packets and ICI’s */ 
1068 Packet* mac_frame_ptr; 
1069 Packet* pdu_ptr; 

1070 Packet* pkptr; 

1071 Packet* data_pkptr; 
1072 Ici* ici_ptr; 


1073 /* Packet Fields and Attributes */ 
1074 int req_pri, svc_class, req_tk_class; 
1075 int frame_control, src_addr, dest_addr; 
1076 int pkK_len, pri_level; 


1077 /* Token - Related */ 

1078 int tk_usable, res_station, tk_class; 
1079 int current_tk_class; 

1080 double accum_sync; 


1081 /* Timer - Related */ 
1082 double tx_time, timer_remaining, accum_bandwidth; 
1083 double tht_value; 


1084 /* Miscellaneous */ 

1085 int 1; 

1086 int spawn_station, phy_arrival; 
1087 char error_string [512]; 

1088 int num_frames_sent, num_bits_sent; 


1089 /* 26DEC93: loop management variables, used in RCV_TK +*/ 


1090 /* and ENCAP states. -Nix * / 
1091 int NUM_PRIOS; 

1092 int punt ; 

1093 int q_check; 


1094 FIN (cp_fddi_mac_diag ()) 


1095 /* Print out values of timers, and late token counter. */ 
1096 /* Also print out data about restricted mode. */ 

1097 /* (This code may be executed by the simulation debugger */ 
1098 /* by invoking the command ’modprint’). */ 





1099 sprintf (strO, "Timers (count upwards): TRT (%.9g), THT (%.9g)", 
1100 fddi_timer_value (TRT), fddi_timer_value (THT)); 

1101 sprintf (stri, "Late_ct (%d)", Late_Ct); 

1102 op_prg_odb_print_major (strO, stri, OPC_NIL); 


1103 if (restricted) 


1104 sprintf (strO, "token is in restricted dialog with (/d)\n", res_peer); 
1105 else sprintf (strO, “token is unrestricted\n”"); 
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1106 op_prg_odb_print_major (strO, OPC_NIL); 


1107 FOUT; 
1108 } 


1109 void 

1110 cp_fddi_mac_terminate () 
1111 { 

1112 /* Packets and ICI’s */ 
1113 Packet* mac_frame_ptr; 
1114 Packet* pdu_ptr; 

1115 Packet* pkptr; 

1116 Packet* data_pkptr; 

fay Ici* ici_ptr; 


1118 /* Packet Fields and Attributes */ 

1119 int req_pri, svc_class, req_tk_class; 
1120 int frame_control, src_addr, dest_addr; 
1121 int pk_len, pri_level; 


1122 /* Token - Related */ 

1123 int tk_usable, res_station, tk_class; 
1124 int current_tk_class; 

1125 double accum_sync; 


1126 /* Timer - Related */ 
1127 double tx_time, timer_remaining, accum_bandwidth; 
1128 double tht_value; 


1129 /* Miscellaneous */ 

1130 int i; 

1131 int spawn_station, phy_arrival; 
1132 char error_string [512]; 

1133 int num_frames_sent, num_bits_sent; 


1134 /* 26DEC93: loop management variables, used in RCV_TK 
1135 /* and ENCAP states. -Nix 


1136 int NUM_PRIOS; 
1137 int punt; 
1138 int q_check; 


1139 FIN (cp_fddi_mac_terminate ()) 
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Compcode 

cp_fddi_mac_init (pr_state_pptr) 
cp_fddi_mac_state **pr_state_pptr; 
{ 
Static VosT_Cm_Obtype obtype = OPC_NIL; 


FIN (cp_fddi_mac_init (pr_state_pptr)) 
if (obtype == OPC_NIL) 
{ 


if (Vos_Catmem_Register ("proc state vars (cp_fddi_mac)", 


sizeof (cp_fddi_mac_state), Vos_Nop, &obtype) == VOSC_FAILURE) 


FRET (OPC_COMPCODE_FAILURE) 
I; 


if ((*pr_state_pptr = (cp_fddi_mac_state*) Vos_Catmem_Alloc (obtype, 1)) == OPC_WIL) 


FRET (OPC_COMPCODE_FAILURE) 

else 

1 

(*pr_state_pptr)->current_block = 20; 
FRET (OPC_COMPCODE_SUCCESS) 

} 

3 


/** The procedures defined in this section serve +**/ 
/** to simplify the code in the main body of the *+#/ 
/** process model by providing primitives for timer **/ 
/** manipulation... *#*/ 


static 

fddi_timer_disable (timer_ptr) 

FddiT_Timer* timer_ptr; 

{ 

/* if the timer is already disabled, do nothing */ 
if (timer_ptr->enabled) 

{ 

/* disable the timer */ 

timer_ptr->enabled = 0; 


/* reassign the accumulated time so far */ 
timer_ptr->accum = op_sim_time () - timer_ptr->start_time; 
yy 

} 
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static 

fddi_timer_enable (timer_ptr) 

FddiT_Timer* timer_ptr; 

at 

/* if the timer is already enabled, simply return */ 
if (!timer_ptr->enabled) 

it 

/* reenable the timer */ 

timer_ptr->enabled = 1; 


/* set the start time to the current time */ 
/* less the accumulated time so far */ 


timer_ptr->start_time = op_sim_time () - timer_ptr->accum; 
} ; 

} 

static 

fddi_timer_expired (timer_ptr) 


FddiT_Timer* timer_ptr; 

of 

if (fddi_timer_remaining (timer_ptr) <= 0.0) 
return 1; 

else return 0; 


} 


static 

double 

fddi_timer_remaining (timer_ptr) 

FddiT_Timer* timer _ptr; 

if 

/* if the timer is enabled, update the accumulated time */ 
if (timer_ptr->enabled) 

{ 

timer_ptr->accum = op_sim_time () - timer_ptr->start_time; 


} 


/* return the timer remaining before expiration */ 


/* a non-positive value indicates an expired timer */ 
return (timer_ptr->target_accum - timer_ptr->accum) ; 
} 

static 

double 

fddi_timer_value (timer_ptr) 


FddiT_Timer* timer_ptr; 

ft 

/* if the timer is enabled, update the accumulated time */ 
if (timer_ptr->enabled) 

t 


timer_ptr->accum = op_sim_time () - timer_ptr->start_time; 
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1224 } 


1225 return (timer_ptr->accum) ; 
1226 } 


1227 static 

1228 fddi_timer_set_value (timer_ptr, value) 

1229 FddiT_Timer* timer_ptr; 

1230 double value; 

1231 { 

1232 timer_ptr->accum = value; 

1233 } 

1234 

1235 static 

1236 fddi_timer_copy (from_timer_ptr, to_timer_ptr) 
1237 FddiT_Timer* from_timer_ptr; 

1238 FddiT_Timer* to_timer_ptr; 

1239 { 

1240 Vos_Copy_Memory (from_timer_ptr, to_timer_ptr, 
1241 sizeof (FddiT_Timer)); 

1242 } 


1243 static 

1244 fddi_timer_set (timer_ptr, duration) 
1245 FddiT_Timer* timer_ptr; 

1246 { 

1247 /* clear out accumulated time */ 
1248 timer_ptr->accum = 0.0; 


1249 /* assign the timer duration */ 
1250 timer_ptr->target_accum = duration; 


1251 /* assign the current time */ 
1252 timer_ptr->start_time = op_sim_time (); 


1253 /* enable the timer */ 
1254 timer_ptr->enabled = 1; 
1255 } 


1256 static 

1257 FddiT_Timer* 

1258 fddi_timer_create () 
1259 { 

1260 FddiT_Timer* timer_ptr; 


1260 /* allocate memory for a timer structure */ 
1261 timer_ptr = (FddiT_Timer*) malloc (sizeof (FddiT_Timer) ); 





1262 /* initialize the timer in the disabled mode */ 
1263 fddi_timer_init (timer_ptr); 
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1264 /* return the timer’s address */ 
1265 return (timer_ptr); 
1266 } 


1267 static 

1268 fddi_timer_init (timer_ptr) 

1269 FddiT_Timer* timer_ptr; 

1270 { 

1271 /* the timer is initially disabled */ 
1272 timer_ptr->enabled = 0; 


1273 /* the accumulated time is zero */ 
1274 timer_ptr->accum = 0.0; 


1275 /* the target accumulated time is infinite */ 
1276 timer_ptr->target_accum = VOS_DOUBLE_INFINITY; 


1277 /* the start time is now */ 

1278 timer_ptr->start_time = op_sim_time (); 

1279 } 

1280 static 

1281 fddi_station_register (address, objid) 

1282 Objid objid; 

1283 int address; 

1284 { 

1285 /* Fill an entry in the table which maps station */ 
1286 /* addresses to OPNET object ids */ 

1287 FIN (fddi_station_register (address, objid)) 


1288 Fddi_Address_Table [address] = objid; 


1289 /* Keep track of total number of stations on the ring */ 
1290 Fddi_Num_Stationst+; 


1291 FOUT 
1292 } 


1293 static 

1294 fddi_tk_register () 

1295 { 

1296 /* Register the station’s intent to use the token. */ 
1297 /* This should be done whenever an unregistered */ 
1298 /* station obtains new data to transmit. */ 

1299 FIN (fddi_tk_regsister ()) 


1300 /* increase the number of registered stations */ 
1301 Fddi_Wum_Registeredt+t+; 


1302 /* if the token is currently blocked, unblock it */ 


1303 if (Fddi_Tk_Blocked && Fddi_Tk_Accelerate) 
1304 { 
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1305 fddi_tk_unblock (); 
1306 } 


1307 FOUT 

1308 } 

1309 static 

1310 fddi_tk_deregister () 

1311 { 

1312 /* Cancel the station’s intent to use the token. */ 
1313 /* This should be done whenever a registered */ 
1314 /* station exhausts its transmittable data. */ 
1315 FIN (fddi_tk_deregsister ()) 


1316 /* decrease the number of registered stations */ 
1317 Fddi_Num_Registered--; 


1318 FOUT 
1319 } 


1320 static 

1321 fddi_tk_indicate_no_data (token, address, delay) 

1322 Packet* token; 

1323 int address; 

1324 double delay; 

1325 { 

1326 FIN (fddi_tk_indicate_no_data (token, address, delay)) 


1327 /* The calling station is indicating that it has captured +*/ 
1328 /* the token, but has no data to send. If no other stations */ 
1329 /* have data to send either, the token may be blocked to gain */ 
1330 /* simulation efficiency. */ 

1331 if (Fddi_Num_Registered == 0 && Fddi_Tk_Accelerate) 

1332 { 

1333 fddi_tk_block (token, address); 

1334 } | 
1336 elsef{ 

1336 /* If the token cannot be blocked, send it into the ring. */ 

1337 op_pk_send_delayed (token, FDDI_PHY_STRM_OUT, 

1337 delay + Fddi_Prop_Delay) ; 

1338 } 





1339 FOUT 
1340 } 


1341 static 

1342 fddi_tk_block (token, address) 
1343 Packet* token; 

1344 int address; 

1345 { 

1346 int i; 
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FIN (fddi_tk_block (token, address)) 


/* Record the address of the blocking station and blocking time. */ 
Fddi_Tk_Block_Base_Time = op_sim_time (); 
Fddi_TK_Block_Base_Station = address; 


if (tk_trace_on == OPC_TRUE) 

{ 

sprintf (strO, “Blocking Token: station (%d), time (%.9f)”, 
Fddi_Tk_Block_Base_Station, Fddi_Tk_Block_Base_Time) ; 
op_prg_odb_print_major (str0, OPC_NIL); 

} 


/* Indicate that the token is blocked */ 
Fddi_Tk_Blocked = 1; 


/* discard the token packet; another one will be */ 
/* created when the token is unblocked. */ 
op_pk_destroy (token); 


/* Cancel TRT timers at all MAC interfaces; otherwise these */ 

/* timers may continue to expitr during the idle period, */ 

/* generating unnecessary events. */ 

if (tk_trace_on == OPC_TRUE) 

{ 

sprintf (strO, "Canceling timers for (/%d) stations", Fddi_Num_Stations) ; 
op_prg_odb_print_major (str0, OPC_NIL); 

iy 


for (i = 0; i < Fddi_Num_Stations; itt) 

{ 

/* Retain the time at which the TRT would have expired; */ 
/* this is used for calculations when the token is */ 

/* reinjected into the ring. */ 

Fddi_Trt_Exp_Time [i] = op_ev_time (Fddi_Trt_Handle [i]); 


/* Cancel the TRT expiration event. */ 
op_ev_cancel (Fddi_Trt_Handle [i]); 


FOUT 


static 

fddi_tk_unblock () 

{ 

double elapsed_time, first_tk_rx, last_tk_rx; 
double tk_lap_time, next_time, current_time; 
double dbl_num_hops, num_tk_rx, floor (), ceil (); 
int 1, num_hops, next_station; 
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1388 FIN (fddi_tk_unblock ()) 

1389 /* reset the blocking indicator */ 

1390 Fddi_Tk_Blocked = 0; 

1391 /* Get the current time, used for many calculations below */ 

1392 current_time = op_sim_time (); 

1393 if (tk_trace_on == OPC_TRUE) 

1394 { 

1395 sprintf (strO, “Unblocking token for ring (%d)", ring_id); 

1396 op_prg_odb_print_major (str0O, OPC_NIL); 

1396 } 

1397 /* For all stations on the ring, adjust TRT timer and Late_Ct flag. */ 

1398 for (i = 0; i < Fddi_Num_Stations; i++) 

1399 { 

1400 if (tk_trace_on == OPC_TRUE) 

1401 { 

1402 sprintf (strO, “adjusting state of station (%d)", i); 

1403 op_prg_odb_print_minor ("", str0, OPC_NIL); 

1404 } 

1405 /* Calculate number of hops separating station i from block base station. */ 
1406 /* In special case where i is the base station, the token must run a full */ 
1407 /* lap before returning. */ 

1408 if (i != Fddi_Tk_Block_Base_Station) 

1409 { 

1410 num_hops = (i - Fddi_Tk_Block_Base_Station) % Fddi_Num_Stations; 

1411 if (num_hops < 0) 

1412 num_hops = Fddi_Num_Stations + num_hops; 

1413 } 

1414 else num_hops = Fddi_Num_Stations; 

1415 /* Calculate first time at which token would have been received by station i. */ 
1416 /* Note that initial release of token from base station takes a different */ 
1417 /* amount of time than repeating of token by other stations. Thus, the first */ 
1418 /* hop is assumed, and the base time is augmented by the time required to */ 
1419 /* complete it. */ 

1420 first_tk_rx = Fddi_Tk_Block_Base_Time + FDDIC_TOKEN_TX_TIME + Fddi_Prop_Delay + 
1421 (num_hops - 1) * Fddi_Tk_Hop_Delay; 

1422 if (tk_trace_on == OPC_TRUE) 

1423 { 

1424 sprintf (strO, "station is (%d) hops from base", num_hops); 

1425 sprintf (stri, "first receipt of token would be at (%.9f)", first_tk_rx); 
1426 op_prg_odb_print_minor (str0, stri, OPC_NIL); 

1427 } 

1428 /* Case 1: the token would not yet have been received by station i. */ 

1429 if (first_tk_rx > current_time) 
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1430 { 

1431 /* Case 1a: the TRT at station i would not yet have expired. */ 
1432 if (Fddi_Trt_Exp_Time [i] > current_time) 

1433 { 

1434 /* Late_Ct remains at its original value; only the TRT needs */ 
1435 /* to be started again, with the same expiration time. */ 

1436 TRT_SET (i, Fddi_Trt_Exp_Time [i]) 


1437 if (tk_trace_on == OPC_TRUE) 

1438 { 

1439 sprintf (strO, "Restoring TRT to previous exp. time (%.9f)", Fddi_Trt_Exp_Time [i]); 
1440 op_prg_odb_print_minor ("Token would not be received and TRT not expired", str0, OPC_WIL); 
1441 } 

1442 } 

1443 /* Case ib: the TRT at station i would have expired. +/ 

1444 else 

1445 { 

1446 /* Late_Ct would have been set; also the timer would have been rescheduled */ 

1447 /* for an entire TTRT at the time of expiration. */ 

1448 Fddi_Late_Ct [i] = 1; 

1449 TRT_SET (i, (Fddi_T_Opr + Fddi_Trt_Exp_Time [i])) 


1450 if (tk_trace_on == OPC_TRUE) 

1451 { 

1452 sprintf (strO, "Restoring TRT to proper exp. time (%.9f)", Fddi_T_Opr + Fddi_Trt_Exp_Time 
1453 op_prg_odb_print_minor (''Token would not be received and TRT would have expired", str0, OP 
1454 } 

1455 } 

1456 } 


1457 /* Case 2: the token would have been received (perhaps more than once). */ 
1458 else 

1459 { 

1460 /* Calculate the number of times the token would have been received */ 
1461 /* not including the first receipt. */ 

1462 tk_lap_time = Fddi_Tk_Hop_Delay * Fddi_Num_Stations; 

1463 num_tk_rx = floor ((current_time - first_tk_rx) / tk_lap_time); 


1464 /* Calculate the latest time at which the token would have been received. */ 
1465 last_tk_rx = first_tk_rx + (num_tk_rx * tk_lap_time); 

1466 

1467 /* Clear Late_Ct and schedule timer to expire at last receipt of token +*/ 
1468 /* plus one full TTRT. +*/ 

1469 Fddi_Late_ct [i] = 0; 

1470 TRT_SET (i, (last_tk_rx + Fddi_T_Opr)) 


1471 if (tk _trace_on == OPC_TRUE) 

1472 { 

1473 sprintf (strO, “token received (%g) times, last receipt at (%.9f)", 
1474 num_tk_rx + 1.0, last_tk_rx); 

1475 sprintf (stri, "Restoring TRT to proper exp. time (%.9f)", 
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last_tk_rx + Fddi_T_Opr) ; 

op_prg_odb_print_minor ("Token would have been received; Late_Ct is cleared", 
str1, strO, OPC_NIL); 

} 

} 

} 


/* compute the time since the token was blocked */ 
elapsed_time = current_time - Fddi_Tk_Block_Base_Time; 


/* compute the number of hops completed on the ring. For the first hop */ 
/* the token is transmitted directly, not repeated. For all remaining */ 
/* hops, the delay is the station latency plus the propagation delay. */ 
/* Thus, the first hop is assumed, and the remaining time for additional*/ 
/* hops is computed beginning at the time where the token enters the */ 
/* base station’s downstream neighbor. */ 

dbl_num_hops = 1.0 + 

(elapsed_time - FDDIC_TOKEN_TX_TIME - Fddi_Prop_Delay) / Fddi_Tk_Hop_Delay; 


/* If the token was unblocked in less time than it would have taken to */ 
/* be fully transmitted by the base station, dbl_num_hops will be */ 

/* negative. However, 1 full hop would still be required before the */ 
/* token could be used, since the station had already committed to */ 
/* issuing the token. Thus, the actual of number of hops should never */ 
/* be less than 1. If it is, round it to 1. #/ 

if (dbl_num_hops < 1.0) 

dbl_num_hops = 1.0; 

else 

a! 

/* In all other cases, round the number of hops up to the nearest */ 

/* integer value. If already an integer, then leave as is. */ 
dbl_num_hops = ceil (dbl_num_hops) ; 

} 


/* Obtain an integer equivalent of dbl_num_hops. */ 
num_hops = dbl_num_hops; 


/* Based on the number of hops and the base station, compute the */ 
/* next station where the token will appear. */ 
next_station = (num_hops + Fddi_Tk_Block_Base_Station) % Fddi_Num_Stations; 


/* Compute the time at which the token will appear there. */ 

/* Again, assume the first hop occurred, and measure time */ 

/* from there forward. */ 

next_time = Fddi_Tk_Block_Base_Time + (FDDIC_TOKEN_TX_TIME + Fddi_Prop_Delay) + 
(dbl_num_hops - 1.0) * Fddi_Tk_Hop_Delay; 


if (tk_trace_on == OPC_TRUE) 

{ 

sprintf (strO, "“Re-introducing token at station (%d), at time (%.9f)", 
next_station, next_time); 
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1520 op_prg_odb_print_minor (str0, OPC_NIL); 
1521 } 

1522 /* reinject the token at that station */ 
1523 fddi_tk_inject (next_station, next_time) ; 
1624 FOUT 

1525 } 

1626 static 

1527 fddi_tk_inject (address, arv_time) 
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int address; 

double arv_time; 

{ 

/* Re-insert the token into the ring after an idle period. */ 
FIN (fddi_tk_inject (address, arv_time)) 


/* The token is recreated and reinserted onto the ring */ 

/* at the specified station which is not necesssarily the */ 
/* station now requesting the token. */ 

/* The station which will reinsert the token is */ 

/* asked to do so by means of a remote interrupt. */ 
op_intrpt_schedule_remote (arv_time, FDDIC_TK_INJECT, 
Fddi_Address_Table [address]); 


FOUT 
} 


static 
fddi_load_frame_attrs (dest_addr_ptr, svc_class_ptr, pri_level_ptr) 
int *dest_addr_ptr, *svc_class_ptr, *pri_level_ptr; 
i. 
int NUM_PRIOS, 1; /* 26JAN94 */ 
Packet *pkptr; 


FIN (fddi_load_frame_attrs (dest_addr_ptr, svc_class_ptr, pri_level_ptr)) 


/* remove next packet in queue */ 


/* 27DEC94: loop structure superimposed to handle a bank of subqueues. 


/* Extract the packet with the highest priority, that is, the packet 
/* at the head of the highest-numbered subqueue containing packets. 
/* Note that the C language vector numbering convention numbers the 
/* subqueues from 0 to 7, while FDDI convention is to number the 

/* corresponding asynchronous priorities from 1 to 8. This is 

/* reconciled in the statistical outputs available in the Analysis 
/* Editor, where labels are assigned accordingly. Also note that 

/* synchronous traffic is assigned priority 8 as an artifice to allow 
/* routing through a separate subqueue, by which statistics may be 
/* gathered for traffic by class and by priority. -Nix 

NUM_PRIOS = 9; 

for (i = NUM_PRIOS - 1; i > -1; i--) 
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*/ 
*/ 
*«/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 


1573 
1574 
1575 


1576 
1577 


1578 
1579 


if 


if (op_subq_stat (i, OPC_QSTAT_PKSIZE) > 0.0) 
om 4 


pkptr = op_subq_pk_remove (i, OPC_QPOS_HEAD) ; 


break; 
} 
} 
/* extract the fields 
op_pk_nfd_get (pkptr, 
op_pk_nfd_get (pkptr, 


/* only read priority 
if (*svc_class_ptr == 
op_pk_nfd_get (pkptr, 


/* replace the packet 
op_subq_pk_insert (i, 


FOUT 
} 


of interest */ 
“dest_addr", dest_addr_ptr); 
"svc_class", svc_class_ptr); 


level if frame is asynchronous */ 
FDDI_SVC_ASYNC) 
“pri", pri_level_ptr) ; 


on the proper subqueue */ 
pkptr, OPC_QPOS_HEAD); 
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APPENDIX C 
CPNI SINK “C” CODE 


“cp_fddi_sink.pr.c” 


The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 


1 
2 


Om W ND 


/* Process model C form file: cp_fddi_sink.pr.c */ 
/* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet .h> 

#include "“cp_fddi_sink.pr.h" 
FSM_EXT_DECS 


/* Header block */ 

/* Globals */ 

/* array format installed 20JAN94; positions 0-7 represent the asynch priority levels, PRIOR 
/* represents synch traffic, and grand totals are as given in the original. 


#define PRIORITIES 8 /* 20JAN94 */ 
#define XMITTER_ONE 0 /¥*10MAY94#/ 

#define XMITTER_TWO 1 

#define XMITTER_THREE 2 

#define XMITTER_FOUR 3 


static /* OSFEB94 */ 

double fddi_sink_accum_delay = 0.0; 

static /* OSFEB94 */ 

double fddi_sink_accum_delay_a[PRIORITIES+1]={0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 
static /* OSFEB94 */ 

int fddi_sink_total_pkts = 0; 

static /* OSFEB94 */ 

int fddi_sink_total_pkts_a[PRIORITIES + 1] = {0, 0, 0, 0, 0, 0, 0, 0, 0}; 

static /* OSFEB94 */ 

double fddi_sink_total_bits = 0.0; 

static /* OSFEB94 */ 

double fddi_sink_total_bits_a[PRIORITIES+1J={0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 
static /* O5FEB94 */ 

double fddi_sink_peak_delay = 0.0; 

static /* OSFEB94 */ 


double fddi_sink_peak_delay_a[PRIORITIES+2J={0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 
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31 
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33 
34 
35 
36 
37 
38 


39 
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41 
42 
43 
44 
45 
46 
47 


48/* Externally defined globals. */ 


49 


50 
51 
52 


53 
54 
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58 
59 
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63 
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65 
66 
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static /* OSFEB94 */ 
int fddi_sink_scalar_write = 0; 

static /* OSFEB94 */ 
int pri_set = 20; /* 20JAN94 */ 
static 

int subq_index = 0; /* SAPR94 */ 

static 

int prev_src_addr[4]={0, 1, 2, 3}; /*25APR94#/ 


double buffer[4]={0.0,0.0,0.0,0.0}; /*10MAY94+/ 


/* statistics used for CDL throughput */ 

static /* 20APR94 */ 

int fddilpi_total_pkts = 0; 

static 

int fddilpi_total_pkts_a[PRIORITIES + 1] = {0, 0, 0, 0, 0, 0, 0, 0, O}; 


static 
double fddilpi_total_bits = 0.0; 
static 
double fddilpi_total_bits_a[PRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, Of 





extern double fddi_t_opr 0; 

/*12JAN94:attributes from the Environment file +*/ 
double Offered_Load; /* 12JAN94 */ 
double Asynch_Offered_Load; /* 12JAN94 +*/ 


/* transition expressions */ 
#define END_OF_SIM op_intrpt_type() == OPC_INTRPT_ENDSIM 


/* State variable definitions */ 





typedef struct 

{ 
FSM_SYS_STATE 
Gshandle sv_thru_gshandle; 
Gshandle sv_m_delay_gshandle; 
Gshandle sv_ete_delay_gshandle; 
Gshandle sv_thru_gshandle_a[10]; 
Gshandle sv_m_delay_gshandle_a[10] ; 
Gshandle sv_ete_delay_gshandle_a[9] ; 
Gshandle sv_t_gshandle; 
Gshandle sv_t_gshandle_a[10]; 
Objid 8sV_my_id; 
} cp_fddi_sink_state; 
#define pr_state_ptr ((cp_fddi_sink_state*) SimI_Mod_State_Ptr) 
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#define thru_gshandle pr_state_ptr->sv_thru_gshandle 
#define m_delay_gshandle pr_state_ptr->sv_m_delay_gshandle 
#define ete_delay_gshandle pr_state_ptr->sv_ete_delay_gshandle 
#define thru_gshandle_a pr_state_ptr->sv_thru_gshandle_a 
#define m_delay_gshandle_a pr_state_ptr->sv_m_delay_gshandle_a 
#define ete_delay_gshandle_a pr_state_ptr->sv_ete_delay_gshandle_a 
#define t_gshandle pr_state_ptr->sv_t_gshandle 

#define t_gshandle_a pr_state_ptr->sv_t_gshandle_a 

#define my_id pr_state_ptr->sv_my_id 

/* Process model interrupt handling procedure */ 


void 

cp_fddi_sink () 

{ 

double delay, creat_time; 


Packet* pkptr; 

Packet* pkptri ; /*5APR94%/ 
int src_addr, my_addr; 

int dest_addr;/*14APR94%/ 

Ici* from_mac_ici_ptr; 

double fddi_sink_ttrt; 

int xmit_subq_index;/*5APR94*/ 

int load_balance_code; /*6APR94*/ 
int i,subg_no; /*25APR94*/ 

int index; /*10MAY94 */ 


FSM_ENTER (cp_fddi_sink) 
FSM_BLOCK_SWITCH 
/** state (DISCARD) enter executives **/ 


FSM_STATE_ENTER_UNFORCED (0, stateO_enter_exec, "DISCARD") 
{ 


100 /* determine type of interrupt:10MAY94 */ 

101 switch (op_intrpt_type()) 

102 { 

103 case OPC_INTRPT_STAT: 

104 /* the interrupt is caused by the transmitters’ status */ 
105 { 

106 index = op_intrpt_stat(); 

107 switch(index) 

108 { 
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109 
110 
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125 
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127 
128 
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131 
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133 
134 
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142 
143 
144 
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146 


147 
148 


149 
150 
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153 
154 


case XMITTER_ONE: 

{ 

buffer[0] = op_stat_local_read(XMITTER_ONE) ; 

break; 

Jy 

case XMITTER_TWO: 

a 

buffer{1] = op_stat_local_read(XMITTER_TWO) ; 

break; 

} 

case XMITTER_THREE: 

i 

buffer(2] = op_stat_local_read(XMITTER_THREE) ; 

break; 

} 

case XMITTER_FOUR: 

{ 

buffer[3] = op_stat_local_read(XMITTER_FOUR) ; 

break; 

} 

default: 

{ 

op_sim_end("*** FDDI-CDL : FATAL ERROR","Unexpected stat interrupt","",""); | 
| 
| 
| 





I; 
$ 
break; 
I; 
case OPC_INTRPT_STRM: 
/* the interrupt is caused by the incoming packets */ 
{ 

/* get the packet and the interface control info */ 
pkptr = op_pk_get (op_intrpt_strm ()); 
from_mac_ici_ptr = op_intrpt_ici (); 








/* 20JAN94: get the packet’s priority level, which */ 

/* will be used to index arrays of thruput and delay */ 

/* computations. */ 

/* pri_set = op_pk_priority_get (pkptr); doesn’t work here */ 
op_pk_nfd_get (pkptr, "pri", &pri_set); /* 29JAN94 */ 


/* determine the time of creation of the packet */ 
op_pk_nfd_get (pkptr, “cr_time", &creat_time) ; 


/* 18APR94:determine the destination address of the packet */ 
op_pk_nfd_get (pkptr, "“dest_addr", &dest_addr) ; 


/* 20APR94:determine the source address of the packet */ 
op_pk_nfd_get (pkptr, “src_addr", &src_addr); 


/* TAPR94:determine id of own processor to use in finding */ 
/* load balancing attribute and station address of the bridge node */ 
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155 my_id = op_id_self(); 


156 /* 7APR94: determine which load balancing algorithm is in use */ 
157 op_ima_obj_attr_get ( my_id, “load balancing algorithm", &load_balance_code ); 


158 /* 14APR94 : also get my own address */ 
159 op_ima_obj_attr_get ( my_id, "station_address", &my_addr) ; 


160 /* destroy the packet */ 

161 /* op_pk_destroy (pkptr); */ 

162 /* O3FEB94: rather, enqueue the packet. This will be the */ 
163 /* first step toward developing a LAN bridging structure. */ 
164 /* -Wix */ 
165 /* op_subq_pk_insert (pri_set, pkptr, OPC_QPOS_TAIL); */ 


166 /* 14APR94: check the frame passed to "llc" is destined for */ 

167 /* this station. If it is destroy the packet and update the local traffic */ 
168 /* statistics; if not, allocate the packets */ 

169 /* to the transmitters since they are destined for the remote lan */ 

170 /* update also incoming return link statistics for the frames */ 

171 /* which will be queued in llc_sink to be sent to remote lan.*/ 

172 /* -Karayakaylar */ 


173 if((dest_addr == my_addr)&&(src_addr < my_addr)) 

174 { 

175 /* add in its size */ 

176 fddi_sink_total_bits += op_pk_total_size_get (pkptr); 

177 fddi_sink_total_bits_a[pri_set] += op_pk_total_size_get (pkptr); /* 20JAN-2O0APR94 */ 


178 /* accumulate delays */ 

179 delay = op_sim_time () - creat_time; 

180 fddi_sink_accum_delay += delay; 

181 fddi_sink_accum_delay_a[pri_set] += delay; /* 20JAN-20APR94 */ 


182 /* keep track of peak delay value */ 
183 if (delay > fddi_sink_peak_delay) 
184 fddi_sink_peak_delay = delay; 


185 /* 20JAN94: keep track by priority levels as well 23JAN-20APR94 */ 
186 if (delay > fddi_sink_peak_delay_a[pri_set]) 
187 fddi_sink_peak_delay_al[pri_set] = delay; 


188 op_pk_destroy (pkptr); 

189 /* increment packet counter; 20JAN94 */ 

190 fddi_sink_total_pkts+tt; 

191 fddi_sink_total_pkts_a[pri_set] ++; 

192 /* if a multiple of 25 packets is reached, update stats */ 


193 /* O3FEB94: [0]->({7] represent asynch priorities 1->8, */ 
194 /* respectively; [8] represents synchronous traffic, */ 
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195 
196 
197 
198 


/* and [9] represents overall asynchronous traffic.-Nix */ 
if (fddi_sink_total_pkts % 25 == 0) 

{ 

op_stat_global_write (thru_gshandle, 


199 fddi_sink_total_bits / op_sim_time ()); 


200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
Zit 
218 
219 


220 
221 
222 
223 


224 
225 
226 
227 
228 


229 
230 


231 
232 
233 
234 
235 
236 
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238 


op_stat_global_write (thru_gshandle_a[pri_set], 
fddi_sink_total_bits_a[0] / op_sim_time()); 
op_stat_global_write (thru_gshandle_a[0], 
fddi_sink_total_bits_a[1] / op_sim_time()); 
op_stat_global_write (thru_gshandle_a[i], 
fddi_sink_total_bits_a{pri_set] / op_sim_time()); 
op_stat_global_write (thru_gshandle_a[2], 
fddi_sink_total_bits_a{2] / op_sim_time()); 
op_stat_global_write (thru_gshandle_a{3], 
fddi_sink_total_bits_a[{3] / op_sim_time()); 
op_stat_global_write (thru_gshandle_a[4], 
fddi_sink_total_bits_a[{4] / op_sim_time()); 
op_stat_global_write (thru_gshandle_a[5], 
fddi_sink_total_bits_a[5]) / op_sim_time()); 
op_stat_global_write (thru_gshandle_a[6], 
fddi_sink_total_bits_a{6] / op_sim_time()); 
op_stat_global_write (thru_gshandle_a[7], 
fddi_sink_total_bits_a[{7] / op_sim_time()); 
op_stat_global_write (thru_gshandle_a[8], 
fddi_sink_total_bits_a[8] / op_sim_time()); 


/* 30JAN94: gather all asynch stats into one overall figure */ 
op_stat_global_write (thru_gshandle_a[9], 
(fddi_sink_total_bits - fddi_sink_total_bits_a[8]) / 
op_sim_time()); 


/* (fddi_sink_total_bits_afl0] + fddi_sink_total_bits_a[1] + 
/* fddi_sink_total_bits_a[2] + fddi_sink_total_bits_a[3] + 
/* fddi_sink_total_bits_a[4] + fddi_sink_total_bits_a[5] + 
/* fddi_sink_total_bits_a[6] + fddi_sink_total_bits_a[7]) / 
/* op_sim_time()); 


op_stat_global_write (m_delay_gshandle, 
fddi_sink_accum_delay / fddi_sink_total_pkts) ; 


op_stat_global_write (m_delay_gshandle_a[0], 
fddi_sink_accum_delay_a[0] / fddi_sink_total_pkts_a[0]); 
op_stat_global_write (m_delay_gshandle_a[1], 
fddi_sink_accum_delay_a[1] / fddi_sink_total_pkts_a[1]); 
op_stat_global_write (m_delay_gshandle_a[2], 
fddi_sink_accum_delay_a[2] / fddi_sink_total_pkts_a[2]); 
op_stat_global_write (m_delay_gshandle_a[3], 
fddi_sink_accum_delay_a[3] / fddi_sink_total_pkts_a([3]); 
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*/ 
*/ 
*/ 
«/ 
«/ 





239 op_stat_global_write (m_delay_gshandle_al[4], 


240 fddi_sink_accum_delay_a[4] / fddi_sink_total_pkts_a[4]); 

241 op_stat_global_write (m_delay_gshandle_a[5], 

242 fddi_sink_accum_delay_a[5] / fddi_sink_total_pkts_a[5]); 

243 op_stat_global_write (m_delay_gshandle_a[6], 

244 fddi_sink_accum_delay_al6] / fddi_sink_total_pkts_a[6]); 

245 op_stat_global_write (m_delay_gshandle_a([7], 

246 fddi_sink_accum_delay_al[7] / fddi_sink_total_pkts_al[7]); 

247 op_stat_global_write (m_delay_gshandle_a[8], 

248 fddi_sink_accum_delay_a[8] / fddi_sink_total_pkts_a[8]); 

249 /* 30JAN94: gather all asynch stats into one figure */ 

250 op_stat_global_write (m_delay_gshandle_a[9], 

251 (fddi_sink_accum_delay - fddi_sink_accum_delay_a[8]) / 

252 (fddi_sink_total_pkts - fddi_sink_total_pkts_a[8])); 

253 /* (fddi_sink_accum_delay_a[0] + fddi_sink_accum_delay_a[1] + */ 
254 /* fddi_sink_accum_delay_a[2] + fddi_sink_accum_delay_a[3] + +*/ 
255 /* fddi_sink_accum_delay_a[4] + fddi_sink_accum_delay_a[5] + +¥*/ 
256 /* fddi_sink_accum_delay_al[6] + fddi_sink_accum_delay_al[7]) / +*/ 
257 /* (fddi_sink_total_pkts_a[0] + fddi_sink_total_pkts_a[1] + + / 
258 /* fddi_sink_total_pkts_a([2] + fddi_sink_total_pkts_a[3] + */ 
259 /* fddi_sink_total_pkts_a[4] + fddi_sink_total_pkts_a[5] + */ 
260 /* fddi_sink_total_pkts_a[6] + fddi_sink_total_pkts_a[7])); */ 


261 /* also record actual delay values */ 

262 op_stat_global_write (ete_delay_gshandle, delay); 

263 op_stat_global_write (ete_delay_gshandle_a[pri_set], delay); 

264 } 

265 } /* end of if(dest_addr == my_addr)&&(src_addr < my_addr) statement */ 


266 /* 20APR94:destroy the packets coming from the remote lan destined for this*/ 
267 /* station. These packets are not counted for local traffic.*/ 

268 else if(dest_addr == my_addr) 

269 op_pk_destroy(pkptr) ; 


270 /* 20APR94: check the frame passed to “llc" is destined for remote lan */ 
271 /* This will allow only the packets to be counted for CDL traffic.*/ 

272 /* -Karayakaylar */ 

273 else 

274 { 


276 /* add in its size */ 
276 fddilpi_total_bits += op_pk_total_size_get (pkptr); 
277 fddilpi_total_bits_a[pri_set] += op_pk_total_size_get (pkptr); /* 20APR94 */ 


278 /* increment packet counter; 20APR94 */ 
279 fddilpi_total_pkts++; 
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280 fddilp1_total_pkts_a[pri_set]++; 


281 /* if a multiple of 25 packets is reached, update stats */ 
282 /* [0]->[7] represent asynch priorities 1->8, */ 

283 /* respectively; [8] represents synchronous traffic, */ 
284 /* and [9] represents overall asynchronous traffic.-Nix */ 
285 if (fddilpi_total_pkts ¥% 25 == 0) 

286 { 

287 op_stat_global_write (t_gshandle, 

288 fddilpi_total_bits / op_sim_time ()); 


289 op_stat_global_write (t_gshandle_a[pri_set], 

290 fddilpi_total_bits_a[0] / op_sim_time()); 
291 op_stat_global_write (t_gshandle_a[0], 

292 fddilpi_total_bits_a[1] / op_sim_time()); 
293 op_stat_global_write (t_gshandle_a[1], 

294 fddilpi_total_bits_a[pri_set] / op_sim_time()); 
295 op_stat_global_write (t_gshandle_a[2], 

296 fddilpi_total_bits_a[2] / op_sim_time()); 
297 op_stat_global_write (t_gshandle_a([3], 

298 fddilp1_total_bits_a[3] / op_sim_time()); 
299 op_stat_global_write (t_gshandle_a[4J, 

300 fddilpi_total_bits_a[4] / op_sim_time()); 
301 op_stat_global_write (t_gshandle_a[5], 

302 fddilpi_total_bits_a[5] / op_sim_time()); 
303 op_stat_global_write (t_gshandle_a[6], 

304 fddilpi_total_bits_a[6] / op_sim_time()); 
305 op_stat_global_write (t_gshandle_a([7], 

306 fddilpi_total_bits_a[7] / op_sim_time()); 
307 op_stat_global_write (t_gshandle_a[8], 

308 fddilpi_total_bits_a[8] / op_sim_time()); 


309 /* gather all asynch stats into one overall figure */ 


310 op_stat_global_write (t_gshandle_a[9], 

311 (fddilpi_total_bits - fddilpi_total_bits_a[8]) / 

312 op_sim_time()); 

313 /* (fddilpi_total_bits_a[0] + fddilpi_total_bits_a[iJ + +*/ 

314 /* fddilp1_total_bits_a[2] + fddilpi_total_bits_a[3] + +*/ 

315 /* fddilp1_total_bits_a[4] + fddilpi_total_bits_a[5) + +*/ 

316 /* fddilpi_total_bits_a[6] + fddilpi_total_bits_a[7]) / */ 

oir /* op_sim_time()); +/ 
318 fr 


319 /* 14APR94 :allocate the packets to llc_sink subqueues */ 


320 /* 6APR94 -Karayakaylar*/ 
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/* check if load balancing algorithm is circular */ 


/* zero(0) is the circular load balancing code */ 
if (load_balance_code == 0) 
{ 
/* GAPRO4 */ 
/* Apply load balancing to insert the packets in the */ 


/* subqueues, in a circular order */ 

i = subq_index % 4; 

/* check if previous source address is allocated to this queue */ 

/* if so, allocate the packet to that subqueue so that consecutive packets */ 
/* coming from the same station follow the same channel */ 

/* otherwise, allocate the packet to the next queue for transmission */ 
if(prev_src_addr{i] == src_addr) 

vl 


op_subq_pk_insert(i, pkptr, OPC_QPOS_TAIL); 
prev_src_addr{i] = src_addr; 
if 
else 
{ 
subq_index++; 

subq_no = subq_index % 4; 
op_subq_pk_insert(subgq_no, pkptr, OPC_QPOS_TAIL) ; 
prev_src_addr{subg_no] = src_addr; 
i; 

, 

/* 25APR94 */ 
/* check if load balancing algorithm is empty allocation */ 


/* one(1) is the empty allocation load balancing code */ 

if (load_balance_code == 1) 

{ 

i= subq_index % 4; 

/* check if previous source address is allocated to this queue */ 
if(prev_src_addr[i] == src_addr) 

{ 

op_subq_pk_insert(i, pkptr, OPC_QPOS_TAIL); 


prev_src_addr[i] = src_addr; 

} 

else 

/* Apply load balancing to insert the packets in the */ 

/* subqueues by choosing the subqueue which has the maximum current */ 


/* number of free packet slots */ 
{ 
subg_no = op_subq_index_map(OPC_QSEL_MAX_FREE_PKSIZE) ; 
op_subq_pk_insert(subq_no, pkptr, OPC_QPOS_TAIL) ; 
prev_src_addr[subq_no] = src_addr; 
subq_index+t; 
i; 
} 
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370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 


383 
384 


385 
386 


387 
388 
389 
390 


391 
392 
393 
394 


395 
396 
397 
398 
399 
400 


401 
402 
403 
404 
405 


406 
407 


/* send the packets to the transmitters */ 
xmit_subq_index = i; 
/* check if this subqueue is empty and transmitter is not busy */ 
if ((!op_subq_empty (xmit_subq_index) )&&(buffer{xmit_subq_index] == 0.0)) 
7 
/*access the first packet in the subqueue */ 
pkptri = op_subq_pk_remove (xmit_subq_index, OPC_QPOS_HEAD) ; 
/* forward it to the destination xmitter */ 
/* associated with the subqueue index */ 
op_pk_send (pkptri, xmit_subq_index ); 
} 
}/*if(dest_addr > my_addr) statement */ 
break; 
}/* end of case OPC_INTRPT_STRM statement */ 


}/* end of switch */ 
} 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (1,cp_fddi_sink) 


/** state (DISCARD) exit executives **/ 
FSM_STATE_EXIT_UNFORCED (0, stateO_exit_exec, “DISCARD") 
{ 

} 


/** state (DISCARD) transition processing **/ 
FSM_INIT_COND (END_OF_SIM) 

FSM_DFLT_COND 

FSM_TEST_LOGIC ("DISCARD") 


FSM_TRANSIT_ SWITCH 

{ 

FSM_CASE_TRANSIT (0, 1, statel_enter_exec, ;) 
FSM_CASE_TRANSIT (1, 0, stateO_enter_exec, ;) 


/** state (STATS) enter executives **/ 
FSM_STATE_ENTER_UNFORCED (1, statei_enter_exec, “STATS") 
{ 


/* At end of simulation, scalar performance statistics */ 
/* and input parameters are written out. */ 


op_stat_scalar_write ("RL Throughput (bps), Priority 1", 
fddilpi_total_bits_af[0] / op_sim_time ()); /*20APR94%/ 
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408 
409 


410 
411 


412 
413 


414 
415 


416 
417 


418 
419 


420 
421 


422 
423 


424 
425 
426 
427 
428 


429 
430 


431 
432 


op_stat_scalar_write ("RL Throughput (bps), Priority 2", 


fddilpi_total_bits_a[1] / op_sim_time ()); 


op_stat_scalar_write ("RL Throughput (bps), Priority 3", 


fddilp1_total_bits_a[2] / op_sim_time ()); 


op_stat_scalar_write ("RL Throughput (bps), Priority 4", 


fddilpi_total_bits.a(3] / op_sim_time ()); 


op_stat_scalar_write ("RL Throughput (bps), Priority 5", 


fddilpi_total_bits_a[4] / op_sim_time ()); 


op_stat_scalar_write ("RL Throughput (bps), Priority 6", 


fddilp1i_total_bits_a{5] / op_sim_time ()); 


op_stat_scalar_write ("RL Throughput (bps), Priority 7", 


fddilp1_total_bits_al6] / op_sim_time ()); 


op_stat_scalar_write ("RL Throughput (bps), Priority 8", 


fddilpi_total_bits_al7] / op_sim_time ()); 


op_stat_scalar_write ("RL Throughput (bps), Asynchronous", 
(fddilp1_total_bits - fddilpi_total_bits_a[8]) / op_sim_time 


/* 
/* 
/* 
/* 
/* 


(fddilpi_total_bits_a[0] + fddilpi_total_bits_a[1] + 
fddilp1_total_bits_a[2] + fddilpi_total_bits_a[3] + 
fddilp1i_total_bits_a[4] + fddilpi_total_bits_a[5] + 
fddilpi_total_bits_a[6] + fddilpi_total_bits_a[7]) / 
op_sim_time ()); 


op_stat_scalar_write ("RL Throughput (bps), Synchronous", 


fddilpi_total_bits_a[8] / op_sim_time ()); 


op_stat_scalar_write ("RL Throughput (bps), Total", 


fddilpi_total_bits / op_sim_time ()); 


433 /* Only one station needs to do this */ 
434 if ('!fddi_sink_scalar_write) 


435 { 


436 /* set the scalar write flag */ 
437 fddi_sink_scalar_write = 1; 


@); 


*/ 
¥/ 
7, 
*/ 
*/ 


/*20APR94*/ 


438 op_stat_scalar_write ("Mean End-to-End Delay-0O (sec.), Priority 1", 
439 fddi_sink_accum_delay_a(0]) / fddi_sink_total_pkts_a[0]); 
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440 
441 


442 
443 


444 
445 


446 
447 


448 
449 


450 
451 


452 
453 


454 
455 
456 


457 
458 
459 
460 
461 
462 
463 
464 


465 


466 


467 
468 


469 
470 


471 
472 


473 
474 


475 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


op_stat_scalar_write ("Mean End-to-End Delay-O (sec.), Priority 2", 
fddi_sink_accum_delay_al[i] / fddi_sink_total_pkts_a[1i]); 


op_stat_scalar_write ("Mean End-to-End Delay-0O (sec.), Priority 3", 
fddi_sink_accum_delay_al[2] / fddi_sink_total_pkts_a[2]); 


op_stat_scalar_write ("Mean End-to-End Delay-O (sec.), Priority 4", 
fddi_sink_accum_delay_a[3] / fddi_sink_total_pkts_a[3]); 


op_stat_scalar_write ("Mean End-to-End Delay-0 (sec.), Priority 5", 
fddi_sink_accum_delay_al[4] / fddi_sink_total_pkts_a[4]); 


op_stat_scalar_write ("Mean End-to-End Delay-O0 (sec.), Priority 6", 
fddi_sink_accum_delay_a[5] / fddi_sink_total_pkts_a([5]); 


op_stat_scalar_write ("Mean End-to-End Delay-0 (sec.), Priority 7", 
fddi_sink_accum_delay_a[6] / fddi_sink_total_pkts_a[6]); 


op_stat_scalar_write ("Mean End-to-End Delay-0O (sec.), Priority 8", 
fddi_sink_accum_delay_al7] / fddi_sink_total_pkts_a([7]); 


op_stat_scalar_write ("Mean End-to-End Delay-0 (sec.), Asynchronous", 
(fddi_sink_accum_delay - fddi_sink_accum_delay_a[8]) / 
(fddi_sink_total_pkts - fddi_sink_total_pkts_a([8])); 


(fddi_sink_accum_delay_a[0] + fddi_sink_accum_delay_a[1] + */ 
fddi_sink_accum_delay_a[2] + fddi_sink_accum_delay_a[3] + +*/ 
fddi_sink_accum_delay_a[4] + fddi_sink_accum_delay_a[5] + +*/ 
fddi_sink_accum_delay_al[6] + fddi_sink_accum_delay_a[7]) / */ 
(fddi_sink_total_pkts_al0] + fddi_sink_total_pkts_a[1] + «/ 
fddi_sink_total_pkts_a[2] + fddi_sink_total_pkts_a([3] + */ 
fddi_sink_total_pkts_al4] + fddi_sink_total_pkts_a[5] + */ 
fddi_sink_total_pkts_a[6] + fddi_sink_total_pkts_a[7])); +*/ 


op_stat_scalar_write ("Mean End-to-End Delay-0 (sec.), Synchronous", 
fddi_sink_accum_delay_a[8] / fddi_sink_total_pkts_a[8]); 


op_stat_scalar_write ("Mean End-to-End Delay-0 (sec.), Total", 
fddi_sink_accum_delay / fddi_sink_total_pkts); 


op_stat_scalar_write ("Throughput-0 (bps), Priority 1", 
fddi_sink_total_bits_a[0] / op_sim_time ()); 


op_stat_scalar_write ("Throughput-0 (bps), Priority 2", 
fddi_sink_total_bits_a[1] / op_sim_time ()); 


op_stat_scalar_write ("“Throughput-0 (bps), Priority 3", 
fddi_sink_total_bits_a[2] / op_sim_time ()); 


op_stat_scalar_write ("“Throughput-0 (bps), Priority 4", 
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482 


483 
484 


485 
486 


487 
488 
489 
490 
491 


492 
493 


494 
495 
496 
497 
498 


499 
500 
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502 


503 
504 


505 
506 


507 


fddi_sink_total_bits_a[3] / op_sim_time ()); 


op_stat_scalar_write ("Throughput-0 (bps), Priority 5", 
fddi_sink_total_bits_a[{4] / op_sim_time ()); 


op_stat_scalar_write ("Throughput-0 (bps), Priority 6", 
fddi_sink_total_bits_a[5] / op_sim_time ()); 


op_stat_scalar_write ("Throughput-0 (bps), Priority 7", 
fddi_sink_total_bits_a[6] / op_sim_time ()); 


op_stat_scalar_write ("Throughput-0 (bps), Priority 8", 
fddi_sink_total_bits_a[7] / op_sim_time ()); 


op_stat_scalar_write ("Throughput-0 (bps), Asynchronous", 
(fddi_sink_total_bits - fddi_sink_total_bits_a[8]) / op_sim_time ()); 
/* (fddi_sink_total_bits_a[0] + fddi_sink_total_bits_a[1J] + */ 
/* fddi_sink_total_bits_a[{2] + fddi_sink_total_bits_a[3] + ¥*/ 
/* fddi_sink_total_bits_a[4] + fddi_sink_total_bits_a[5] + */ 
/* fddi_sink_total_bits_a[6] + fddi_sink_total_bits_a[7]) / */ 
/* op_sim_time ()); */ 
op_stat_scalar_write ("Throughput-0 (bps), Synchronous", 
fddi_sink_total_bits_a[8] / op_sim_time ()); 
op_stat_scalar_write ("Throughput-0 (bps), Total", 
fddi_sink_total_bits / op_sim_time ()); 
op_stat_scalar_write ("Peak End-to-End Delay-0 (sec.), Priority 1", 
fddi_sink_peak_delay_a[0]); 
op_stat_scalar_write ("Peak End-to-End Delay-0 (sec.), Priority 2", 
fddi_sink_peak_delay_a[1]); 
op_stat_scalar_write ("Peak End-to-End Delay-O (sec.), Priority 3", 
fddi_sink_peak_delay_a[2]); 
op_stat_scalar_write ("Peak End-to-End Delay-0 (sec.), Priority 4", 
fddi_sink_peak_delay_a[3]); 
op_stat_scalar_write ("Peak End-to-End Delay-0 (sec.), Priority 5", 
fddi_sink_peak_delay_a[4]); 
op_stat_scalar_write ("Peak End-to-End Delay-O (sec.), Priority 6", 
fddi_sink_peak_delay_a[5]); 
op_stat_scalar_write ("Peak End-to-End Delay-0 (sec.), Priority 7", 
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508 fddi_sink_peak_delay_a[6]); 


509 op_stat_scalar_write ("Peak End-to-End Delay-O (sec.), Priority 8", 
510 fddi_sink_peak_delay_a[7]); 

S11 op_stat_scalar_write ("Peak End-to-End Delay-0O (sec.), Synchronous", 
512 fddi_sink_peak_delay_a[8]); 

§13 op_stat_scalar_write ("Peak End-to-End Delay-O (sec.), Overall", 
514 fddi_sink_peak_delay); 


515 /* Write the TTRT value for ring 0. This preserves */ 
516 /* the old behavior for single-ring simulations. */ 
517 op_stat_scalar_write ("TTRT (sec.) - Ring 0", 

518 fddi_t_opr [0]); 


519 /* 12JAN94: obtain offered load information from the Environment */ 
520 /* file; this will be used to provide abscissa information that */ 
521 /* can be plotted in the Analysis Editor (see "fddi_sink" STATS +*/ 
522 /* state. To the user: it’s your job to keep these current in */ 
523 /* the Environment File. -Nix «/ 
524 op_ima_sim_attr_get (OPC_IMA_DOUBLE, “total_offered_load_O", &0ffered_Load) ; 
525 op_ima_sim_attr_get (OPC_IMA_DOUBLE, "“asynch_offered_load_O", &Asynch_Offered_Load); 


526 /* 12JAN94: write the total offered load for this run */ 
527 op_stat_scalar_write ("Total Offered Load-O (Mbps)", 

§28 Offered_Load) ; 

529 op_stat_scalar_write ("Asynchronous Offered Load-0 (Mbps)", 
530 Asynch_Offered_Load); 

bar 7 

532 } 


533 /** blocking after enter executives of unforced state. *#/ 
534 FSM_EXIT (3,cp_fddi_sink) 


§35 /** state (STATS) exit executives **/ 

536 FSM_STATE_EXIT_UNFORCED (1, statel_exit_exec, "STATS") 
537 { 

538 } 


539 /** state (STATS) transition processing **/ 
540 FSM_TRANSIT_MISSING (“STATS") 
B81 | Ran a eS */ 
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542 /** state (INIT) enter executives **/ 


543 FSM_STATE_ENTER_FORCED (2, state2_enter_exec, "“INIT") 


544 { 
545 /* get the gshandles of the global statistic to 
546 /* 20JAN94: set array format */ 

647 thru_gshandle_a[0] = 


op_stat_global_reg (“pri 


648 thru_gshandle_a[1] = op_stat_global_reg ("pri 
649 thru_gshandle_a[2] = op_stat_global_reg ("pri 
50 thru_gshandle_a[3] = op_stat_global_reg 

651 thru_gshandle_a[4] = op_stat_global_reg ("pri 


552 
553 
554 
555 
556 
557 


thru_gshandle_a[5] = op_stat_global_reg 
thru_gshandle_a[6] = op_stat_global_reg 
thru_gshandle_a[7] = op_stat_global_reg 
thru_gshandle_a[8] = op_stat_global_reg 
thru_gshandle_a[9] = op_stat_global_reg 
thru_gshandle = op_stat_global_reg 


("pri 
(“pri 
("pri 
(“synch 
("async 
("total 


1 
2 
3 
(“pri 4 
5 
6 
7 
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559 
560 
561 
562 
563 
564 
565 


("pri 
("pri 
("pri 
("pri 
Cope. 
@\pra 
("pri 


m_delay_gshandle_a[0] = op_stat_global_reg 
m_delay_gshandle_a[1] = op_stat_global_reg 
m_delay_gshandle_a[2] = op_stat_global_reg 
m_delay_gshandle_a[3] = op_stat_global_reg 
m_delay_gshandle_al[4] = op_stat_global_reg 
m_delay_gshandle_a[5] = op_stat_global_reg 
m_delay_gshandle_al[6] = op_stat_global_reg 


ON DOP WD & 


throughput-0 
throughput-0 
throughput-0 
throughput-0 
throughput-0 
throughput-0 
throughput-0 
8 throughput-0 
throughput-0 
throughput-0 
throughput-0 


mean 
mean 
mean 
mean 
mean 
mean 
mean 
mean 


be obtained */ 


delay-0O 
delay-0 
delay-0 
delay-0 
delay-0 
delay-0 
delay-0 


566 
567 
568 


569 
570 
571 
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573 
574 
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576 
577 
578 


579 
580 
581 
582 
583 
584 
585 
586 
587 


m_delay_gshandle_a[7] = 


m_delay_gshandle_a[8] 
m_delay_gshandle_a[9] 


m_delay_gshandle 


ete_delay_gshandle_a[0] 
ete_delay_gshandle_a[1] 
ete_delay_gshandle_a[2] 
ete_delay_gshandle_a([3] 
ete_delay_gshandle_a[4] 
ete_delay_gshandle_a[5] 
ete_delay_gshandle_a[6] 
ete_delay_gshandle_a([7] 
ete_delay_gshandle_a[8] 


ete_delay_gshandle 


t_gshandle_a[0] = 
t_gshandle_a[1] = 
t_gshandle_a[2] = 
t_gshandle_a[3] 
t_gshandle_a[4] 
t_gshandle_a[5] = 
t_gshandle_a[6] = 
t_gshandle_a[7] = 
t_gshandle_a[8] = 


op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 


= op_stat_global_reg 
= op_stat_global_reg 
= op_stat_global_reg 
= op_stat_global_reg 
= op_stat_global_reg 
= op_stat_global_reg 
= op_stat_global_reg 
= op_stat_global_reg 
= op_stat_global_reg 


op_stat_global_reg 


(prt: 
(“synch 
("async 
("total 


("pra at 
(Spr de2 
("pri 3 
(“pri 4 
("pri 5 
("pri 6 
(“pri 7 
(“pri 8 
("synch 
("total 


mean 
mean 
mean 


delay-0 
delay-0 
delay-0 
delay-0 


end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 


(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 


(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
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delay-0 
delay-0 
delay-0O 
delay-0 
delay-0 
delay-0 
delay-0 
delay-0O 
delay-0 
delay-0 


(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 


op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 


= op_stat_global_reg 
= op_stat_global_reg 


op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 


("pri 
(per 
("pri 
("pri 
(“pri 
pri 
(“pri 
("pri 


("synch 
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throughput 
throughput 
throughput 
throughput 
throughput 
throughput 
throughput 
throughput 
throughput 


PRPRRRREFE 


-e 4 = = = 
Nee ee ee ee LY YW CY CY CY 
we we mee @e we @e oe oe me 


Ne ee UY OY OY CY SY CY SY CY 


(bps)"); /*20APR94*/ 


(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 


(bps)"); 


(bps)"); 


588 t_gshandle_a[9] = op_stat_global_reg (“async RL throughput (bps)"); 
589 t_gshandle = op_stat_global_reg ("total RL throughput (bps)"); 


590 } 


591 /** state (INIT) exit executives *+*/ 

592 FSM_STATE_EXIT_FORCED (2, state2_exit_exec, "INIT") 
593 { ; 

594 } 


595 /** state (INIT) transition processing +**/ 
596 FSM_INIT_COND (END_OF_SIM) 

597 FSM_DFLT_COND 

598 FSM_TEST_LOGIC ("INIT") 


599 FSM_TRANSIT_SWITCH 

600 { : 

601 FSM_CASE_TRANSIT (0, 1, statel_enter_exec, ;) 

602 FSM_CASE_TRANSIT (1, 0, stateO_enter_exec, ;) 

603 } 

604 | fenmn nn nnn nn nnn nnn rrr nn nn nnn nnn en nnn nere rr rr ere reereneer=- */ 


605 } 


606 FSM_EXIT (2,cp_fddi_sink) 
607 } 


608 void 

609 cp_fddi_sink_svar (prs_ptr,var_name,var_p_ptr) 
610 cp_fddi_sink_state *prs_ptr; 

611 char *var_name, **var_p_ptr; 

G12 f 


613 FIN (cp_fddi_sink_svar (prs_ptr)) 


614 *var_p_ptr = VOS_NIL; 

615 if (Vos_String_Equal ("thru_gshandle” , var_name)) 

616 *var_p_ptr = (char *) (&prs_ptr->sv_thru_gshandle) ; 

617 if (Vos_String_Equal ("“m_delay_gshandle" , var_name)) 
618 *var_p_ptr = (char *) (&prs_ptr->sv_m_delay_gshandle) ; 
619 if (Vos_String_Equal ("“ete_delay_gshandle" , var_name)) 
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620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 


633 
634 


635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 


649 


650 
651 


652 
653 
654 
655 
656 
657 


*var_p_ptr = (char *) (&prs_ptr->sv_ete_delay_gshandle) ; 
if (Vos_String_Equal ("thru_gshandle_a" , var_name)) 
*var_p_ptr = (char *) (prs_ptr->sv_thru_gshandle_a) ; 

if (Vos_String_Equal ("m_delay_gshandle_a" , var_name)) 
*var_p_ptr = (char *) (prs_ptr->sv_m_delay_gshandle_a); 
if (Vos_String_Equal ("ete_delay_gshandle_a" , var_name) ) 
*yvar_p_ptr = (char *) (prs_ptr->sv_ete_delay_gshandle_a) ; 
if (Vos_String_Equal ("t_gshandle" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_t_gshandle) ; 

if (Vos_String_Equal ("t_gshandle_a" , var_name)) 
*var_p_ptr = (char *) (prs_ptr->sv_t_gshandle_a) ; 

if (Vos_String_Equal ("my_id" , var_name)) 

*yar_p_ptr = (char *) (&prs_ptr->sv_my_id); 


FOUT; 
} 


void 

cp_fddi_sink_diag () 

{ 

double delay, creat_time; 

Packet* pkptr; 

Packet* pkptri ; /*5APR94+*/ 
int src_addr, my_addr; 

int dest_addr; /*14APR94*/ 

Ici* from_mac_ici_ptr; 

double fddi_sink_ttrt; 

int xmit_subq_index;/*5APR94+*/ 
int load_balance_code; /*6APR94*/ 
int i,subq_no; /*25APR94*/ 

int index; /*10MAY94 */ 


FIN (cp_fddi_sink_diag ()) 


FOUT; 


void 

cp_fddi_sink_terminate () 

“t 

double delay, creat_time; 

Packet* pkptr; 

Packet* pkptri ; /*5APR94*/ 
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658 
659 
660 
661 
662 
663 
664 
665 


666 


667 
668 


669 
670 
671 
672 
673 


674 


675 


int src_addr, my_addr; 

int dest_addr; /*14APR94*/ 

Ici* from_mac_ici_ptr; 

double fddi_sink_ttrt; 

int xmit_subq_index;/#5APR94+/ 
int load_balance_code; /*6APR94+#/ 
int i,subg_no; /*25APR94%/ 

int index; /*10MAY94 */ 


FIN (cp_fddi_sink_terminate ()) 


FOUT; 


Compcode 

cp_fddi_sink_init (pr_state_pptr) 
cp_fddi_sink_state **pr_state_pptr; 
{ 


static VosT_Cm_Obtype obtype = OPC_HWIL; 
FIN (cp_fddi_sink_init (pr_state_pptr)) 


if (obtype == OPC_NIL) 


676 { 


677 
678 
679 
680 


681 
682 
683 
684 
685 
686 
687 
688 


if (Vos_Catmem_Register ("proc state vars (cp_fddi_sink)", 
sizeof (cp_fddi_sink_state), Vos_Nop, &obtype) == VOSC_FAILURE) 
FRET (OPC_COMPCODE_FAILURE) 

} 





if ((*pr_state_pptr = (cp_fddi_sink_state*) Vos_Catmem_Alloc (obtype, 1)) == OPC_NIL) 


FRET (OPC_COMPCODE_FAILURE) 

else 

{ 

(+pr_state_pptr)->current_block = 4; 
FRET (OPC_COMPCODE_SUCCESS) 

); 

} 
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APPENDIX D 


SPNI SOURCE “C” CODE 
“sp_fddi_gen.pr.c” 


The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 


~~ 


/* Process model C form file: sp_fddi_gen.pr.c */ 
2 /* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

#include “sp_fddi_gen.pr.h" 
FSM_EXT_DECS 


nm W DN 


6 /* Header block */ 
7 #define MAC_LAYER_OUT_STREAM 0 
8 #define LLC_SINK_OUT_STREAM 1 /*18APR94*#/ 


9 /* define possible service classes for frames */ 
10 #define FDDI_SVC_ASYNC 0 
11 #define FDDI_SVC_SYNC 1 


12 /* define token classes */ 
13 #define FDDI_TK_NONRESTRICTED 0 
14 #define FDDI_TK_RESTRICTED 1 


15 /* State variable definitions */ 
16 typedef struct 


iv { 

18 FSM_SYS_STATE 

19 Distributions sv_inter_dist_ptr; 
20 Distributions sv_len_dist_ptr; 

21 Distribution* sv_dest_dist_ptr; 

22 Distribution* sv_pkt_priority_ptr; 
23 Objid Sv_mac_objid; 

24 Objid SV_my_id; 

25 int sv_low_dest_addr; 

26 int sv_high_dest_addr; 
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27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 


39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
§3 
54 
55 
56 
57 
58 


59 


int 

int 

int 

int 
double 
double 
double 
Ici 
Ici 
Ici* 
Packet* 
} sp_fddi_gen_state; 


#define pr_state_ptr 
#define inter_dist_ptr 
#define len_dist_ptr 
#define dest_dist_ptr 
#define pkt_priority_ptr 
#define mac_objid 
#define my_id 

#define low_dest_addr 
#define high_dest_addr 
#define station_addr 
#define src_addr 

#define low_pkt_priority 
#define high_pkt_priority 
#define arrival_rate 
#define mean_pk_len 
#define async_mix 
#define mac_iciptr 
#define mac_iciptr1 
#define llc_ici_ptr 
#define pkptr1 


sv_station_addr; 
sv_src_addr; 
sv_low_pkt_priority; 
sv_high_pkt_priority; 
SV_arrival_rate; 
sv_mean_pkK_len; 
SV_async_mix; 
SV_mMac_iciptr; 
sv_mac_iciptr1; 
sv_le_icitptr, 
sv_pkptr1; 


((sp_tddi_gen_state*) SimI_Mod_State_Ptr) 
pr_state_ptr->sv_inter_dist_ptr 
pr_state_ptr->sv_len_dist_ptr 
pr_state_ptr->sv_dest_dist_ptr 
pr_state_ptr->sv_pkt_priority_ptr 
pr_state_ptr->sv_mac_objid 
pr_state_ptr->sv_my_id 
pr_state_ptr->sv_low_dest_addr 
pr_state_ptr->sv_high_dest_addr 
pr_state_ptr->sv_station_addr 
pr_state_ptr->sv_src_addr 
pr_state_ptr->sv_low_pkt_priority 
pr_state_ptr->sv_high_pkt_priority 
pr_state_ptr->sv_arrival_rate 
pr_state_ptr->sv_mean_pk_len 
pr_state_ptr->sv_async_mix 
pr_state_ptr->sv_mac_iciptr 
pr_state_ptr->sv_mac_iciptr1l 
pr_state_ptr->sv_llc_ici_ptr 
pr_state_ptr->sv_pkptril 


/* Process model interrupt handling procedure */ 


60 void 

61 sp_fddi_gen () 
62 { 

63 Packet *pkptr; 


64 
65 
66 
67 


int pklen; 

int dest_addr; 

int i, restricted; 
int pkt_prio; 
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68 


69 
70 
71 
72 
73 
74 
7& 
76 


77 
78 
79 


80 
81 
82 


83 
84 
85 


86 
87 
88 


89 
90 
91 
92 


93 
94 


95 


96 


97 


98 
99 


FSM_ENTER (sp_fddi_gen) 


FSM_BLOCK_SWITCH 


/** state (INIT) enter executives **/ 
FSM_STATE_ENTER_UNFORCED (0, stateO_enter_exec, “IWIT") 

{ 

/* determine id of own processor to use in finding attrs */ 
my_id = op_id_self (); 


/* determine address range for uniform desination assignment */ 
op_ima_obj_attr_get (my_id, “low dest address", &low_dest_addr) ; 
op_ima_obj_attr_get (my_id, “high dest address", &high_dest_addr) ; 


/* determine object id of connected ’mac’ layer process */ 
mac_objid = op_topo_assoc (my_id, OPC_TOPO_ASSOC_OUT, 
OPC_OBJMTYPE_MODULE, MAC_LAYER_OUT_STREAM) ; 


/* determine the address assigned to it +*/ 
/* which is also the address of this station */ 
op_ima_obj_attr_get (mac_objid, “station_address", &station_addr) ; 


/* set up a distribution for generation of addresses */ 
dest_dist_ptr = op_dist_load (“uniform_int", low_dest_addr, 
high_dest_addr) ; 


/* added 26DEC93 */ 

/* determine priority range for uniform traffic generation */ 
op_ima_obj_attr_get (my_id, “high pkt priority", &high_pkt_priority) ; 
op_ima_obj_attr_get (my_id, “low pkt priority", &low_pkt_priority) ; 


/* set up a distribution for generation of priorities */ 
pkt_priority_ptr = op_dist_load ("uniform_int", low_pkt_priority, high_pkt_priority) ; 


/* above added 26DEC93 +*/ 
/* also determine the arrival rate for packet generation */ 
Op_ima_obj_attr_get (my_id, “arrival rate", &arrival_rate); 


/* determine the mix of asynchronous and synchronous */ 
/* traffic. This is expressed as the proportion of */ 


100 /* asynchronous traffic. i.e a value of 1.0 indicates */ 
101 /* that all the produced traffic shall be asynchronous. */ 
102 op_ima_obj_attr_get (my_id, “async_mix", &async_mix); 


103 /* set up a distribution for arrival generations */ 
104 if (arrival_rate != 0.0) 
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105 
106 
107 


108 
109 


110 
111 


112 
113 


114 
115 
116 
117 
118 
119 


120 


121 
122 


123 
124 
125 
126 


127 
128 
129 


130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 


{ 
/* arrivals are exponentially distributed, with given mean */ 
inter_dist_ptr = op_dist_load (“constant", 1.0 / arrival_rate, 0.0); 


/* determine the distribution for packet size */ 
op_ima_obj_attr_get (my_id, “mean pk length", &mean_pk_len) ; 


/* set up corresponding distribution */ 
len_dist_ptr = op_dist_load ("constant", mean_pk_len, 0.0); 


/* designate the time of first arrival */ 
fddi_gen_schedule (); 


/* set up an interface control information (ICI) structure */ 

/* to communicate parameters to the mac layer process */ 

/* (it is more efficient to set one up now and keep it */ 

/* as a state variable than to allocate one on each packet xfer) */ 
mac_iciptr = op_ici_create ("“fddi_mac_req") ; 


} 
sy 


/** blocking after enter executives of unforced state. +**/ 
FSM_EXIT (1,sp_fddi_gen) 


/** state (INIT) exit executives **/ 
FSM_STATE_EXIT_UNFORCED (0, stateO_exit_exec, "INIT") 
{ 

} 


/** state (INIT) transition processing **/ 
FSM_TRANSIT_FORCE (1, statei_enter_exec, ;) 


/** state (ARRIVAL) enter executives *+*/ 

FSM_STATE_ENTER_UNFORCED (1, statei_enter_exec, "“ARRIVAL") 

{ 

/* This station should receive frames from the other lan as long as */ 
/* there are frames in the input streams addressed to this lan */ 
/*check if the interrupt type is stream interrupt *//*12APR94*/ 
if(op_intrpt_type() == OPC_INTRPT_STRM) 

{ 

/* if it is, get the packet in the input stream causing interrupt */ 
pkptri = op_pk_get(op_intrpt_strm()); 

/* get the destination address of the frame : 16APR94 */ 
op_pk_nfd_get(pkptri, "“dest_addr", &dest_addr) ; 
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142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 


/* check if this frame is for the remote bridge station(bridge in surface lan) */ 
if(dest_addr == station_addr) 

/* if it is, send the packet to llc_sink directly */ 

/* in order to prevent overhead of mac access */ 


op_pk_send(pkptri, LLC_SINK_OUT_STREAM) ;/#19APR94#/ 
else 

/* this packet is to send to mac */ 

4 

/* determine the source address of the frame */ 


op_pk_nfd_get(pkptri, "src_addr”", &src_addr); 
/* set up an ICI structure to communicate parameters to */ 
/* MAC layer process */ 


154 mac_iciptr1 = op_ici_create("fddi_mac_req”") ; 


155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 


180 
181 
182 
183 
184 
185 


186 
187 


188 
189 


/* place the original source address into the ICI *//* 16APR94 */ 

/* "fddi_mac_req" is modified so that it contains the original */ 

/* source address from the local lan(collection platform) +#/ 
op_ici_attr_set(mac_iciptri, "src_addr”, src_addr); 

/* place the destination address into the ICI */ /*12APR94#/ 
op_ici_attr_set(mac_iciptri, "dest_addr", dest_addr); 

/* assign the service class and requested token class */ 

/* At this moment the frames coming from the remote lan are assumed */ 

/* to have the same priority as synchronous frames in order not to accumulate */ 
/* packets on the bridge station mac and instead to deliver their destinations */ 
/* as soon as possible */ 

op_pk_nfd_set(pkptri, "pri", 8); 

op_ici_attr_set(mac_iciptri, “svc_class", FDDI_SVC_SYNC); 
Geeici_attr_set(macliciptri, “pri", 8); 

op_ici_attr_set(mac_iciptri, "tk_class", FDDI_TK_NONRESTRICTED) ; 

/* send the packet coupled with the ICI */ 

op_ici_install(mac_iciptr1); 


op_pk_send(pkptri, MAC_LAYER_OUT_STREAM) ; 
} 
} 
/* otherwise, generate the frame +/ 
else 
a! 
/* determine the length of the packet to be generated */ 


pklen = op_dist_outcome (len_dist_ptr); 


/* determine the destination */ 

/* dont allow this station’s address as a possible outcome */ 
gen_packet: ~ 

dest_addr = op_dist_outcome (dest_dist_ptr) ; 

if (dest_addr != -1 && dest_addr == station_addr) 

goto gen_packet; 


/* 26DEC94 & 29JAN94: determine its priority */ 
pkt_prio = op_dist_outcome (pkt_priority_ptr); 


/* create a packet to send to mac */ 
pkptr = op_pk_create_fmt ("fddi_llc_fr") ; 


137 


190 /* assign its overall size. +*/ 
192 op_pk_total_size_set (pkptr, pklen); 


193 /* assign the time of creation */ 
194 op_pk_nfd_set (pkptr, “cr_time", op_sim_time ()); 


195 /* place the destination address into the ICI ¥/ 
196 /* (the protocol_type field will default) */ 
197 op_ici_attr_set (mac_iciptr, “dest_addr", dest_addr); 


198 /* place the source address into the ICI *//* 17APR94*/ 
199 op_ici_attr_set (mac_iciptr, "src_addr", station_addr) ; 


200 /* assign the priority, and requested token class */ 
201 /* also assign the service class; 29JAN94: the fddi_lle_fr */ 


202 /* format is modified to include a “pri”™ field. «/ 
203 if (op_dist_uniform (1.0) <= async_mix) 

204 { 

205 ‘op_pk_nfd_set (pkptr, "pri", pkt_prio); /* 29JAN94 */ 
206 op_ici_attr_set (mac_iciptr, "svc_class", FDDI_SVC_ASYNC); 
207 op_ici_attr_set (mac_iciptr, "pri", pkt_prio); /* 29JAN94 */ 
208 } 

209 elsef{ 

210 op_pk_nfd_set (pkptr, "pri", 8); /* 29JAN94 */ 
211 op_ici_attr_set (mac_iciptr, "“svc_class", FDDI_SVC_SYNC) ; 

212 op_ici_attr_set (mac_iciptr, “pri”, 8); /* 29JAN94 */ 
213 } 


214 /* Request only nonrestricted tokens after transmission */ 

215 op_ici_attr_set (mac_iciptr, "tk_class", FDDI_TK_NONRESTRICTED) ; 
216 

217 /* Having determined priority, assign it; 26DEC93 */ 

218 /* op_ici_attr_set (mac_iciptr, “pri", pkt_prio); */ 


219 /* send the packet coupled with the ICI */ 

220 op_ici_install (mac_iciptr); 

221 /* check if destination address is in the local lan(collection platform) */ 
222 if(dest_addr <= 9) 

223 /* if it is, this packet is to send llc_sink directly */ 

224 op_pk_send (pkptr, LLC_SINK_OUT_STREAM); /¥*18APR94+/ 

225 else 

226 /* if not, the packet is destined for remote lan (surface stations)*/ 

227 op_pk_send (pkptr, MAC_LAYER_OUT_STREAM) ; 


228 /* schedule the next arrival #/ 
229 fddi_gen_schedule (); 

230 } 

231 } 
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232 /** blocking after enter executives of unforced state. +*/ 
233 FSM_EXIT (3,sp_fddi_gen) 


234 /** state (ARRIVAL) exit executives **/ 

235 FSM_STATE_EXIT_UNFORCED (1, statelt_exit_exec, "ARRIVAL") 
236 { 

237 } 


238 /** state (ARRIVAL) transition processing +**/ 
239 FSM_TRANSIT_FORCE (1, statei_enter_exec, ;) 
nn nn we en we enna aan—= 


241 } 


242 FSM_EXIT (0,sp_fddi_gen) 
243 } 


244 void. 

245 sp_fddi_gen_svar (prs_ptr,var_name,var_p_ptr) 
246 sp_fddi_gen_state *prs_ptr; 

247 char *var_name, **var_p_ptr; 

248 { 


249 FIN (sp_fddi_gen_svar (prs_ptr)) 


250 *var_p_ptr = VOS_NIL; 

251 if (Vos_String_Equal ("inter_dist_ptr" , var_name) ) 
252 *var_p_ptr = (char *) (&prs_ptr->sv_inter_dist_ptr) ; 
253 if (Vos_String_Equal ("len_dist_ptr" , var_name)) 

254 *var_p_ptr = (char *) (&prs_ptr->sv_len_dist_ptr) ; 
255 if (Vos_String_Equal ("dest_dist_ptr" , var_name)) 
256 *var_p_ptr = (char *) (&prs_ptr->sv_dest_dist_ptr) ; 
257 if (Vos_String_Equal ("“pkt_priority_ptr" , var_name)) 
258 *var_p_ptr = (char *) (&prs_ptr->sv_pkt_priority_ptr) ; 
259 if (Vos_String_Equal ("mac_objid" , var_name)) 

260 *var_p_ptr = (char *) (&prs_ptr->sv_mac_objid) ; 

261 if (Vos_String_Equal ("my_id" , var_name)) 

262 *var_p_ptr = (char *) (&prs_ptr->sv_my_id); 

263 if (Vos_String_Equal ("“low_dest_addr" , var_name)) 
264 *var_p_ptr = (char *) (&prs_ptr->sv_low_dest_addr) ; 
265 if (Vos_String_Equal ("high_dest_addr" , var_name) ) 
266 *var_p_ptr = (char *) (&prs_ptr->sv_high_dest_addr) ; 
267 if (Vos_String_Equal ("station_addr” , var_name)) 
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280 
281 
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289 
290 
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295 
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299 


300 
301 


302 
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306 


*var_p_ptr = (char *) (&prs_ptr->sv_station_addr) ; 

if (Vos_String_Equal ("src_addr" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_src_addr) ; 

if (Vos_String_Equal ("low_pkt_priority" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_low_pkt_priority) ; 
if (Vos_String_Equal ("high_pkt_priority" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_high_pkt_priority) ; 
if (Vos_String_Equal (“arrival_rate" , var_name) ) 
*var_p_ptr = (char *) (&prs_ptr->sv_arrival_rate); 

if (Vos_String_Equal ("mean_pk_len" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_mean_pk_len) ; 

if (Vos_String_Equal ("async_mix" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_async_mix); 

if (Vos_String_Equal ("mac_iciptr" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_mac_iciptr); 

if (Vos_String_Equal ("mac_iciptri" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_mac_iciptr1); 

if (Vos_String_Equal ("llc_ici_ptr" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_llc_ici_ptr) ; 

if (Vos_String_Equal ("pkptri" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_pkptr1) ; 


FOUT; 
is 


void 

sp_fddi_gen_diag () 

{ : 
Packet *pkptr; 

int pklen; 

int dest_addr; 

int 1, restricted; 

int pkt_prio; 


FIN (sp_fddi_gen_diag ()) 


FOUT; 


void 
sp_fddi_gen_terminate () 
{ 

Packet *pkptr; 

int pklen; 
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307 int dest_addr; 
308 int i, restricted; 
309 int pkt_prio; 


310 FIN (sp_fddi_gen_terminate ()) 


311 FOUT; 
312 } 


313 Compcode 

314 sp_fddi_gen_init (pr_state_pptr) 

315 sp_fddi_gen_state **pr_state_pptr; 

316 { 

317 static VosT_Cm_Obtype obtype = OPC_NIL; 


318 FIN (sp_fddi_gen_init (pr_state_pptr)) 


319 if (obtype == OPC_NIL) 

320 { 

321 if (Vos_Catmem_Register ("proc state vars (sp_fddi_gen)", 

322 sizeof (sp_fddi_gen_state), Vos_Nop, &obtype) == VOSC_FAILURE) 
323 FRET (OPC_COMPCODE_FAILURE) 

324 } 


325 if ((*pr_state_pptr = (sp_fddi_gen_state*) Vos_Catmem_Alloc (obtype, 1)) == OPC_NIL) 
326 FRET (OPC_COMPCODE_FAILURE) 

327 else 

328 { 

329 (*pr_state_pptr)->current_block = 0; 

330 FRET (OPC_COMPCODE_SUCCESS) 

331 } 

332 } 


333 /* static added 2DEC93, on advice from MIL3 */ 
334 static 

335 fddi_gen_schedule () 

336 { 

337 double inter_time; 


338 /* obtain an interarrival period according to the */ 
339 /* prescribed distribution */ 
340 inter_time = op_dist_outcome (inter_dist_ptr) ; 


341 /* schedule the arrival of next generated packet */ 


342 op_intrpt_schedule_self (op_sim_time () + inter_time, 0); 
343 } 
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APPENDIX E 
SPNI MAC “C” CODE EXCERPT 


“sp_fddi_mac.pr.c” 


The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 


/** state (FR_REPEAT) enter executives **/ 
FSM_STATE_ENTER_FORCED (6, state6_enter_exec, "FR _REPEAT") 
{ 

/* Extract the destination address of the frame. */ 
op_pk_nfd_get (pkptr, “dest_addr", &dest_addr) ; 


om Ff W DAD 


/* If the frame is for this station, make a copy */ 

/* of the frame’s data field and forward it to */ 

/* the higher layer. */ 

/* 14APR94 : In order to send the frames which are */ 

10 /* addressed to the remote lan, check the address database */ 

11 /* of remote lan. Frames addressed to the remote lan shouldn’t */ 
12 /* be repeated in the local ring -- This is a simple forwarding */ 
13 /* decision algorithm, one of the bridge’s function */ 

14 /* - Karayakaylar */ 

15 if((dest_addr == my_address)||(dest_addr <= 9)) 

16 { 

17 /* record total size of the frame (including data) */ 

18 pk_len = op_pk_total_size_get (pkptr); 


oan om 


19 /* decapsulate the data contents of the frame */ 


20 /* 29JAN94: a new field, "pri", has been added to +*#/ 
21 /* the fddi_llc_fr packet format in the Parameters */ 
22 /* Editor, so that output statistics can be */ 
23 /* generated by class and priority. -NWix */ 


24 op_pk_nfd_get (pkptr, "info", &data_pkptr); 
25 op_pk_nfd_get (pkptr, "pri", &pri_level) ; 


26 /* The source and destination address are placed in the */ 


27 /* LLC’s ICI before delivering the frame’s contents. */ 
28 op_ici_attr_set (to_llc_ici_ptr, "src_addr", src_addr); 
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29 op_ici_attr_set (to_llc_ici_ptr,""desteader, a@est_addr),; 
30 op_ici_install (to_llc_ici_ptr); 


31 /* Because, as noted in the FR_RCV state, only the */ 

32 /* frame’s leading edge has arrived at this time, the */ 

33 /* complete frame can only be delivered to the higher */ 

34 /* layer after the frame’s transmission delay has elapsed. */ 

35 /* (since decapsulation of the frame data contents has occured, */ 
36 /* the original MAC frame length is used to calculate delay) */ 

37 tx_time = (double) pk_len / FDDI_TX_RATE; 

38 op_pk_send_delayed (data_pkptr, FDDI_LLC_STRM_OUT, tx_time); 


39 /* Note that the standard specifies that the original */ 

40 /* frame should be passed along until the originating station */ 

41 /* receives it, at which point it is stripped from the ring. */ 

42 /* However, in the simulation model, there is no interest */ 

43 /* in letting the frame continue past its destination unless */ 

44 /* group addresses are used, so that the same frame could be */ 

45 /* destined for several stations. Here the frame is stripped */ 

46 /* for efficiency as it reaches the destination; if the model */ 

47 /* is modified to include group addresses, this should be changed */ 
48 /* so that the frame is copied and the original repeated. */ 

49 /* Logic is already present for stripping the frame at the origin. */ 
50 op_pk_destroy (pkptr); 

51 } 

52 /* 14APR94 : the frames belong to this ring should be repeated. */ 
53 /* Thus, local traffic is constrained.-- This is filtering decision */ 
54 /* One of the bridge’s function - Karayakaylar */ 

55 else{ 

56 /* Repeat the original frame on the ring and account for */ 

57 /* the latency through the station and the propagation delay */ 

58 /* for a single hop. */ 

59 /* (Only the originating station can strip the frame). */ 

60 op_pk_send_delayed (pkptr, FDDI_PHY_STRM_OUT, 

61 Fddi_St_Latency + Fddi_Prop_Delay); 

62 } 

63 } 


64 /** state (FR_REPEAT) exit executives **/ 

65 FSM_STATE_EXIT_FORCED (6, state6_exit_exec, "FR_REPEAT") 
66 { | 
67 } 
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APPENDIX F 
SPNI SINK “C” CODE 


“sp_fddi_sink.pr.c” 


The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 


1 /* Process model C form file: sp_fddi_sink.pr.c */ 
2 /* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#Hinclude <opnet.h> 

#include "“sp_fddi_sink.pr.h" 
FSM_EXT_DECS 


Qn & W 


7 /* Header block */ 

8 /* Globals */ 

9 /* positions 0-7 represent the asynch priority levels, PRIORITIES + 1 */ 
10 /* represents synch traffic, and grand totals are as given in the original. 


11 #define PRIORITIES 8 /* 20JAN94 */ 
12 #define XMITTER_BUSY 0 /*10MAY94 */ 


13 static /* OSFEB94 */ 

14 double fddi2_sink_accum_delay = 0.0; 

15 static /* OSFEB94 */ 

16 double fddi2_sink_accum_delay_a[PRIORITIES + 1] = {0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0}; 
17 static /* OSFEB94 */ 

18 int fddi2_sink_total_pkts = 0; 

19 static /* OSFEB94 */ 

20 int fddi2_sink_total_pkts_a[PRIORITIES + 1] = {0, 0, 0, 0, 0, 0, 0, 0, 0}; 

21 static /* OSFEB94 */ 

22 double fddi2_sink_total_bits = 0.0; 

23 static /* OSFEB94 */ 

24 double fddi2_sink_total_bits_a[PRIORITIES + 1] = {0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0}; 
25 static /* OSFEB94 */ 

26 double fddi2_sink_peak_delay = 0.0; 

27 static /* OSFEB94 */ 

28 double fddi2_sink_peak_delay_a[PRIORITIES + 2} = {0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0}; 
29 static /* OSFEB94 */ 

30 int fddi2_sink_scalar_write = 0; 

31 static /* OSFEB94 */ 

s2eint pri2_set = 20; /* 20JAN94 */ 


145 


33 


34 
35 
36 
37 
38 
39 
40 
41 
42 


43 
44 


45 
46 
47 


48 
49 


50 
61 
52 
53 
64 
55 
56 
57 
58 
59 
60 
61 
62 
63 


64 
65 
66 
67 
68 
69 
70 
rol 
72 
73 


double busy = 0.0; /* 10MAY94 */ 


/* Statistics used for command link:21APR94 */ 


static 
int fddilp2_total_pkts = 0; 
static 


int fddilp2_total_pkts_a[PRIORITIES + 1) = {0, 0, 0, 0, 0, 0, 0, 0, 0}; 
static 

double fddilp2_total_bits = 0.0; 
static 


double fddilp2_total_bits_a[PRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 


/* Externally defined globals. */ 
extern double fddi_t_opr 0; 


/*12JAN94:attributes from the Environment file */ 
double Offered_Load; /* 12JAN94 */ 
double Asynch_Offered_Load; /* 12JAN94 */ 


/* transition expressions */ 
#define END_OF_SIM op_intrpt_type() == OPC_INTRPT_ENDSIM 


/* State variable definitions */ 
typedef struct 


‘ 

FSM_SYS_STATE 

Gshandle sv_thru2_gshandle; 

Gshandle sv_m2_delay_gshandle; 

Gshandle sv_ete2_delay_gshandle; 

Gshandle sv_thru2_gshandle_a[10]; 

Gshandle sv_m2_delay_gshandle_a[1i0] ; 

Gshandle sv_ete2_delay_gshandle_a[9]; 

Gshandle sv_t2_gshandle; 

Gshandle sv_t2_gshandle_a[10] ; 

Objid Sv_my_id; 

} sp_fddi_sink_state; 

#define pr_state_ptr ((sp_fddi_sink_state*) SimI_Mod_State_Ptr) 
#define thru2_gshandle pr_state_ptr->sv_thru2_gshandle 
#define m2_delay_gshandle pr_state_ptr->sv_m2_delay_gshandle 
#define ete2_delay_gshandle pr_state_ptr->sv_ete2_delay_gshandle 
#define thru2_gshandle_a pr_state_ptr->sv_thru2_gshandle_a 
#define m2_delay_gshandle_a pr_state_ptr->sv_m2_delay_gshandle_a 
#define ete2_delay_gshandle_a pr_state_ptr->sv_ete2_delay_gshandle_a 
#define t2_gshandle pr_state_ptr->sv_t2_gshandle 

#define t2_gshandle_a pr_state_ptr->sv_t2_gshandle_a 
#define my_id pr_state_ptr->sv_my_id 
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74 /* Process model interrupt handling procedure */ 


75 void 

76 sp_fddi_sink () 

Titel 

78 double delay, creat_time; 

79 Packet* pkptr; 

80 Packet# pkptri ; /*S5APR94*/ 
81 int src_addr, my_addr; 

82 int dest_addr;/*14APR94#/ 

83 Ici* from_mac_ici_ptr; 

84 double fddi_sink_ttrt; 


85 FSM_ENTER (sp_fddi_sink) 


86 FSM_BLOCK_SWITCH 

87 { 

ee ae ae Se Se RRR ee Ee «/ 
89 /** state (DISCARD) enter executives **/ 

90 FSM_STATE_ENTER_UNFORCED (0, stateO_enter_exec, "“DISCARD") 
91 { 

92 /* determine the type of interrupt */ 

93 switch(op_intrpt_type()) 

94 { 

95 /* check if transmitter is busy */ 

96 case OPC_INTRPT_STAT: 

97 { 

98 busy = op_stat_local_read (XMITTER_BUSY) ; 

99 break; 

100 } 

101 /* check if a packet has arrived */ 

102 case OPC_INTRPT_STRM: 

103 { 

104 /* get the packet and the interface control info */ 
105 pkptr = op_pk_get (op_intrpt_strm ()); 

106 from_mac_ici_ptr = op_intrpt_ici (); 


107 /* 20JAN94: get the packet’s priority level, which +*/ 
108 /* will be used to index arrays of thruput and delay */ 


109 /* computations. */ 
110 /* pri2_set = op_pk_priority_get (pkptr); doesn’t work here */ 
111 op_pk_nfd_get (pkptr, “pri", &pri2_set); /* 29JAN94 */ 


112 /* determine the time of creation of the packet */ 
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op_pk_nfd_get (pkptr, "cr_time", &creat_time); 


/* determine the dest address of the packet */ /¥*18APR94*/ 
op_pk_nfd_get (pkptr, "dest_addr", &dest_addr); 


/* TAPR94:determine id of own processor to use in finding */ 
/* station address of the bridge node */ 
my_id = op_id_self(); 





/* 14APR94 : also get my own address */ 
op_ima_obj_attr_get ( my_id, "station_address", &my_addr); 


/* destroy the packet */ 

/* op_pk_destroy (pkptr); */ 

/* O3FEB94: rather, enqueue the packet. This will be the */ 

/* first step toward developing a LAN bridging structure. */ | 

/* -Nix */ 

/* op_subq_pk_insert (pri_set, pkptr, OPC_QPOS_TAIL); * / 
/ 


/* 14APR94: check the frame passed to "llc" is destined for */ 

/* this station. If it is destroy the packet; if not, allocate the packets */ 

/* to the command link transmitter since they are destined for the remote lan */ 

/* -Karayakaylar +*/ ) 
/* determine the packets coming from surface stations, this will */ 

/* be counted for local traffic */ 

/* 9(nine) is model specific, this is the "station_number" of */ 

/* collection platform bridge station */ 

if((dest_addr == my_addr)&&(src_addr > 9)) 

iE 

/* add in its size */ 

fddi2_sink_total_bits += op_pk_total_size_get (pkptr); 
fddi2_sink_total_bits_a[pri2_set] += op_pk_total_size_get (pkptr); /* 20JAN-20APR94 4 


/* accumulate delays */ 

delay = op_sim_time () - creat_time; 

fddi2_sink_accum_delay += delay; 
fddi2_sink_accum_delay_a[pri2_set] += delay; /* 20JAN-20APR94 */ 


/* keep track of peak delay value */ 
if (delay > fddi2_sink_peak_delay) 
fddi2_sink_peak_delay = delay; 


/* 20JAN94: keep track by priority levels as well 23JAN-20APR94 */ 

if (delay > fddi2_sink_peak_delay_a[pri2_set]) 
fddi2_sink_peak_delay_alpri2_set] = delay; 

op_pk_destroy (pkptr); 

/* increment packet counter; 20JAN94 */ 


fddi2_sink_total_pktst+; 
fddi2_sink_total_pkts_a[pri2_set]++; 
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154 /* 


156 /* 
157 /* 
158 if 
159 { 


if a multiple of 25 packets is reached, update stats */ 
155 /* O3FEB94: [0]->[7] represent asynch priorities 1->8, +*/ 
respectively; [8] represents synchronous traffic, +/ 
and [9] represents overall asynchronous traffic.-Nix +*/ 
(fddi2_sink_total_pkts % 25 == 0) 


160 op_stat_global_write (thru2_gshandle, 
161 fddi2_sink_total_bits / op_sim_time ()); 


162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 


op_stat_global_write (thru2_gshandle_a[pri2_set], 


fddi2_sink_total_bits_a[0] / op_sim_time()); 


op_stat_global_write (thru2_gshandle_a[0], 


fddi2_sink_total_bits_a[1] / op_sim_time()); 


op_stat_global_write (thru2_gshandle_a[1], 


fddi2_sink_total_bits_a[pri2_set] / op_sim_time()); 


op_stat_global_write (thru2_gshandle_al[2], 


fddi2_sink_total_bits_a[2] / op_sim_time()); 


op_stat_global_write (thru2_gshandle_a[3], 


fddi2_sink_total_bits_a[3] / op_sim_time()); 


op_stat_global_write (thru2_gshandle_al[4], 


fddi2_sink_total_bits_al4] / op_sim_time()); 


op_stat_global_write (thru2_gshandle_a[5], 


fddi2_sink_total_bits_a[5] / op_sim_time()); 


op_stat_global_write (thru2_gshandle_a[6], 


fddi2_sink_total_bits_a[6] / op_sim_time()); 


op_stat_global_write (thru2_gshandle_a[7], 


fddi2_sink_total_bits_al[7] / op_sim_time()); 


op_stat_global_write (thru2_gshandle_a[8], 


fddi2_sink_total_bits_a[8] / op_sim_time()); 


/* 30JAN94: gather all asynch stats into one overall figure */ 
op_stat_global_write (thru2_gshandle_a[9], 
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184 
185 


186 
187 
188 
189 
190 


191 


193 
194 
195 
196 


/* 
/* 
/* 
/* 
/* 


(fddi2_sink_total_bits - fddi2_sink_total_bits_a[8]) / 
op_sim_time()); 


(fddi2_sink_total_bits_a[0] + fddi2_sink_total_bits_a[1] + 

fddi2_sink_total_bits_a[2] + fddi2_sink_total_bits_a[3] + 

fddi2_sink_total_bits_al[4] + fddi2_sink_total_bits_al[5] + 

fddi2_sink_total_bits_al6] + fddi2_sink_total_bits_a[7]) / 
op_sim_time()); 


op_stat_global_write (m2_delay_gshandle, 
192 fddi2_sink_accum_delay / fddi2_sink_total_pkts); 


op_stat_global_write (m2_delay_gshandle_a[0], 


fddi2_sink_accum_delay_al[0] / fddi2_sink_total_pkts_a[0]); 


op_stat_global_write (m2_delay_gshandle_a[1], 


fddi2_sink_accum_delay_a[1] / fddi2_sink_total_pkts_a[1]); 
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+/ 


*/ 
*/ 
*/ 
+/ 


197 op_stat_global_write (m2_delay_gshandle_a([2], 





198 fddi2_sink_accum_delay_a[2] / fddi2_sink_total_pkts_a([2]); 
199 op_stat_global_write (m2_delay_gshandle_a[3], 
200 fddi2_sink_accum_delay_a[3] / fddi2_sink_total_pkts_a([3]); 
201 op_stat_global_write (m2_delay_gshandle_a[4], 
202 fddi2_sink_accum_delay_al[4] / fddi2_sink_total_pkts_a[4]); 
203 op_stat_global_write (m2_delay_gshandle_a([5], 
204 fddi2_sink_accum_delay_a[5] / fddi2_sink_total_pkts_a[5]); 
205 op_stat_global_write (m2_delay_gshandle_al[6], 
206 fddi2_sink_accum_delay_a(6] / fddi2_sink_total_pkts_a[6]); 
207 op_stat_global_write (m2_delay_gshandle_a([7], 
208 fddi2_sink_accum_delay_al7] / fddi2_sink_total_pkts_a[7]); 
209 op_stat_global_write (m2_delay_gshandle_a[8], 
210 fddi2_sink_accum_delay_al[8] / fddi2_sink_total_pkts_a[8]); 


211 /* 30JAN94: gather all asynch stats into one figure */ 


212 op_stat_global_write (m2_delay_gshandle_a[9], 

243 (fddi2_sink_accum_delay - fddi2_sink_accum_delay_a[8]) / 

214 (fddi2_sink_total_pkts - fddi2_sink_total_pkts_a[8])); 

215 /* (fddi2_sink_accum_delay_al0] + fddi2_sink_accum_delay_a[1] + */ 
216 /* fddi2_sink_accum_delay_a[2] + fddi2_sink_accum_delay_a[3] + */ 
aA, /* fddi2_sink_accum_delay_al4] + fddi2_sink_accum_delay_a[5] + +*/ 
218 /* fddi2_sink_accum_delay_a({6] + fddi2_sink_accum_delay_al7]) / +*/ 
219 /* (fddi2_sink_total_pkts_al0] + fddi2_sink_total_pkts_a[i] + */ 
220 /* fddi2_sink_total_pkts_a[2] + fddi2_sink_total_pkts_a[3] + */ 
221 /* fddi2_sink_total_pkts_al[4] + fddi2_sink_total_pkts_a[5] + */ 
222 /* fddi2_sink_total_pkts_a[6] + fddi2_sink_total_pkts_a([7])); +/ 


223 /* also record actual delay values */ 

224 op_stat_global_write (ete2_delay_gshandle, delay); 

225 op_stat_global_write (ete2_delay_gshandle_a[pri2_set], delay); 
226 } 

227 }/*end of if(dest_addr==my_addr)&&(src_addr > 9)statement */ 


228 /* 20APR94: destroy the packets coming from the first lan destined */ 
229 /* for this station.These packets are not counted for local traffic.*/ 
230 else if(dest_addr == my_addr) 

231 op_pk_destroy(pkptr); 


232 /* Other frames passed to "llc" should be destined for other lan */ 
233 /* 18APR94 :allocate the packets to transmitter of command link */ 
234 else 

235 & 


236 /* add in its size */ 


237 fddilp2_total_bits += op_pk_total_size_get (pkptr); 
238 fddilp2_total_bits_a[pri2_set] += op_pk_total_size_get (pkptr); /* 20JAN-20APR94 */ 
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239 /* increment packet counter; 20APR94 */ 
240 fddilp2_total_pkts++; 
241 fddilp2_total_pkts_a[pri2_set]++; 


242 /* if a multiple of 25 packets is reached, update stats */ 
243 /* [0]->[7] represent asynch priorities 1->8, *#/ 

244 /* respectively; [8] represents synchronous traffic, */ 
245 /* and [9] represents overall asynchronous traffic.-Nix */ 
246 if (fddilp2_total_pkts % 25 == 0) 

247 { 

248 op_stat_global_write (t2_gshandle, 

249 fddilp2_total_bits / op_sim_time ()); 


250 op_stat_global_write (t2_gshandle_a[pri2_set], 

251 fddilp2_total_bits_al0] / op_sim_time()); 
252 op_stat_global_write (t2_gshandle_a[0], 

253 fddilp2_total_bits_a[1] / op_sim_time()); 
254 op_stat_global_write (t2_gshandle_a[1], 

255 fddilp2_total_bits_alpri2_set] / op_sim_time()); 
256 op_stat_global_write (t2_gshandle_a[2], 

257 fddilp2_total_bits_a[2] / op_sim_time()); 
258 op_stat_global_write (t2_gshandle_a[3], 

259 fddilp2_total_bits_a[3] / op_sim_time()); 
260 op_stat_global_write (t2_gshandle_a[4], 

261 fddilp2_total_bits_a[4] / op_sim_time()); 
262 op_stat_global_write (t2_gshandle_a[5], 

263 fddilp2_total_bits_a[5] / op_sim_time()); 
264 op_stat_global_write (t2_gshandle_a[6], 

265 fddilp2_total_bits_a[6] / op_sim_time()); 
266 op_stat_global_write (t2_gshandle_a[7], 

267 fddilp2_total_bits_a[7] / op_sim_time()); 
268 op_stat_global_write (t2_gshandle_a[8], 

269 fddilp2_total_bits_a[8] / op_sim_time()); 


270 /* gather all asynch stats into one overall figure */ 


271 op_stat_global_write (t2_gshandle_a[9], 

272 (fddilp2_total_bits - fddilp2_total_bits_a[8]) / 

273 op_sim_time()); 

274 /* (fddilp2_total_bits_a[0] + fddilp2_total_bits_a[i] + 
275 /* fddilp2_total_bits_a[2] + fddilp2_total_bits_a[3] + +#/ 

276 /* fddilp2_total_bits_a[4] + fddilp2_total_bits_a[5] + +*/ 

WET /* fddilp2_total_bits_a[6] + fddilp2_total_bits_a[7]) / #*/ 

278 /* op_sim_time()); */ 

279 } 


280 /* 21APR94:allocate packets to the command link transmitter */ 
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op_subq_pk_insert(0, pkptr, OPC_QPOS_TAIL); 


/* check if this subqueue is empty and transmitter is not busy */ 
if ((!op_subq_empty(0))&&(busy == 0.0)) 
(i 
/*access the first packet in the subqueue */ 
pkptri = op_subq_pk_remove (0, OPC_QPOS_HEAD); 
/* forward it to the, transmitter of command link */ 
op_pk_send (pkptri, 0); 
} 
}/* end of else */ 
break; 
}/* end of case OPC_INTRPT_STRM statement */ 


}/* end of switch */ 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (1,sp_fddi_sink) 


/** state (DISCARD) exit executives **/ 
FSM_STATE_EXIT_UNFORCED (0, stateO_exit_exec, "DISCARD") 
{ 

} 


/** state (DISCARD) transition processing **/ 
FSM_INIT_COND (END_OF_SIM) 

FSM_DFLT_COND 

FSM_TEST_LOGIC ("DISCARD") 


FSM_TRANSIT_SWITCH 

uf 

FSM_CASE_TRANSIT (0, 1, statei_enter_exec, ;) 
FSM_CASE_TRANSIT (1, 0, stateO_enter_exec, ;) 


/** state (STATS) enter executives +**/ 
FSM_STATE_ENTER_UNFORCED (1, statei_enter_exec, "STATS") 
‘ 

/* At end of simulation, scalar performance statistics */ 
/* and input parameters are written out. */ 

/* This is for command link throughput :21APR94*/ 
op_stat_scalar_write ("CL Throughput (bps), Priority 1", 
fddilp2_total_bits_a[0] / op_sim_time ()); 
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344 /* Only one station needs to do this for the second ring(Ring 1)#*/ 


op_stat_scalar_write ("CL Throughput (bps), Priority 2", 


fddilp2_total_bits_a[1] / op_sim_time ()); 


op_stat_scalar_write ("CL Throughput (bps), Priority 3", 


fddilp2_total_bits_a[2] / op_sim_time ()); 


op_stat_scalar_write ("CL Throughput (bps), Priority 4", 


fddilp2_total_bits_a[3] / op_sim_time ()); 


op_stat_scalar_write ("CL Throughput (bps), Priority 5", 


fddilp2_total_bits_al[4] / op_sim_time ()); 


op_stat_scalar_write ("CL Throughput (bps), Priority 6", 


fddilp2_total_bits_a[5] / op_sim_time ()); 


op_stat_scalar_write ("CL Throughput (bps), Priority 7", 


fddilp2_total_bits_a[6] / op_sim_time ()); 


op_stat_scalar_write ("CL Throughput (bps), Priority 8", 


fddilp2_total_bits_al7] / op_sim_time ()); 


op_stat_scalar_write ("CL Throughput (bps), Asynchronous", 
(fddilp2_total_bits - fddilp2_total_bits_a[8]) / op_sim_time ()); 


/* 
/* 
/* 
/* 
/* 


(fddilp2_total_bits_al[0] + fddilp2_total_bits_a[1i] + 
fddilp2_total_bits_a[2] + fddilp2_total_bits_a[3] + 
fddilp2_total_bits_a[4] + fddilp2_total_bits_a[5] + 


fddilp2_total_bits_a[6] + fddilp2_total_bits_a[7]) / 


op_sim_time ()); 


op_stat_scalar_write ("CL Throughput (bps), Synchronous", 


fddilp2_total_bits_a[8] / op_sim_time ()); 


op_stat_scalar_write ("CL Throughput (bps), Total", 


fddilp2_total_bits / op_sim_time ()); 


345 if ('fddi2_sink_scalar_write) 


346 { 


347 /* set the scalar write flag */ 
348 fddi2_sink_scalar_write = 1; 


349 op_stat_scalar_write ("Mean End-to-End Delay-1 (sec.), Priority 1", 


350 fddi2_sink_accum_delay_al0] / fddi2_sink_total_pkts_a[0]); 
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371 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


op_stat_scalar_write ("Mean End-to-End Delay-1(sec.), Priority 2", 
fddi2_sink_accum_delay_a[1] / fddi2_sink_total_pkts_a[1]); 


op_stat_scalar_write ("Mean End-to-End Delay-i (sec.), Priority 3" 
fddi2_sink_accum_delay_a[2] / fddi2_sink_total_pkts_a[2]); 


op_stat_scalar_write ("Mean End-to-End Delay-1 (sec.), Priority 4" 
fddi2_sink_accum_delay_a[3] / fddi2_sink_total_pkts_a([3]); 


op_stat_scalar_write ("Mean End-to-End Delay-1 (sec.), Priority 5" 
fddi2_sink_accum_delay_a[4] / fddi2_sink_total_pkts_a[4]); 


op_stat_scalar_write ("Mean End-to-End Delay-1i (sec.), Priority 6" 
fddi2_sink_accum_delay_a[5] / fddi2_sink_total_pkts_a[5]); 


op_stat_scalar_write ("Mean End-to-End Delay-1 (sec.), Priority 7" 
fddi2_sink_accum_delay_a(6] / fddi2_sink_total_pkts_a([6]); 


op_stat_scalar_write ("Mean End-to-End Delay-1 (sec.), Priority 8" 
fddi2_sink_accum_delay_a[7] / fddi2_sink_total_pkts_a[7]); 


op_stat_scalar_write ("Mean End-to-End Delay-1 (sec.), Asynchronous", 


(fddi2_sink_accum_delay - fddi2_sink_accum_delay_a[8]) / 
(fddi2_sink_total_pkts - fddi2_sink_total_pkts_a[8])); 


(fddi2_sink_accum_delay_a[0] + fddi2_sink_accum_delay_a[i] + 
fddi2_sink_accum_delay_a({2] + fddi2_sink_accum_delay_a[3] + 
fddi2_sink_accum_delay_a[4] + fddi2_sink_accum_delay_a(5] + 
fddi2_sink_accum_delay_a[6] + fddi2_sink_accum_delay_a[7]) / 
(fddi2_sink_total_pkts_a[0] + fddi2_sink_total_pkts_a[i] + 
fddi2_sink_total_pkts_a[2] + fddi2_sink_total_pkts_a[3] + 
fddi2_sink_total_pkts_a[4] + fddi2_sink_total_pkts_a[5] + 
fddi2_sink_total_pkts_a[6] + fddi2_sink_total_pkts_a[7])); 


op_stat_scalar_write ("Mean End-to-End Delay-1 (sec.), Synchronous 
fddi2_sink_accum_delay_a[8] / fddi2_sink_total_pkts_a[8]); 


op_stat_scalar_write ("Mean End-to-End Delay-1 (sec.), Total", 
fddi2_sink_accum_delay / fddi2_sink_total_pkts); 


op_stat_scalar_write ("“Throughput-1 (bps), Priority i", 
fddi2_sink_total_bits_a{0] / op_sim_time ()); 


op_stat_scalar_write ("Throughput-1 (bps), Priority 2", 
fddi2_sink_total_bits_a[i] / op_sim_time ()); 


op_stat_scalar_write ("Throughput-1 (bps), Priority 3", 
fddi2_sink_total_bits_a[2] / op_sim_time ()); 


op_stat_scalar_write ("Throughput-1( bps), Priority 4", 
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387 fddi2_sink_total_bits_a[3] / op_sim_time ()); 


388 op_stat_scalar_write ("Throughput-1 (bps), Priority 5", 

389 fddi2_sink_total_bits_a[4] / op_sim_time ()); 

390 op_stat_scalar_write ("Throughput-1 (bps), Priority 6", 

391 fddi2_sink_total_bits_a[5] / op_sim_time ()); 

392 op_stat_scalar_write ("Throughput-1 (bps), Priority 7", 

393 fddi2_sink_total_bits_a[6] / op_sim_time ()); 

394 op_stat_scalar_write ("Throughput-1 (bps), Priority 8", 

395 fddi2_sink_total_bits_a[7] / op_sim_time ()); 

396 op_stat_scalar_write ("Throughput-1 (bps), Asynchronous", 

397 (fddi2_sink_total_bits - fddi2_sink_total_bits_a[8]) / op_sim_time ()); 
398 /* (fddi2_sink_total_bits_a[0] + fddi2_sink_total_bits_a[i] + +#/ 
399 /* fddi2_sink_total_bits_a[2] + fddi2_sink_total_bits_a[3] + +*/ 
400 /* fddi2_sink_total_bits_a[4] + fddi2_sink_total_bits_a[5] + ¥*/ 
401 /* fddi2_sink_total_bits_a[6] + fddi2_sink_total_bits_a[7]) / */ 
402 /* op_sim_time ()); */ 
403 op_stat_scalar_write ("Throughput-1 (bps), Synchronous", 

404 fddi2_sink_total_bits_a[8] / op_sim_time ()); 

405 op_stat_scalar_write ("Throughput-1 (bps), Total", 

406 fddi2_sink_total_bits / op_sim_time ()); 


407 op_stat_scalar_write ("Peak End-to-End Delay-1 (sec.), Priority 1", 
408 fddi2_sink_peak_delay_a([0]); 


409 op_stat_scalar_write ("Peak End-to-End Delay-1 (sec.), Priority 2", 
410 fddi2_sink_peak_delay_a[1]); 
411 op_stat_scalar_write ("Peak End-to-End Delay-1 (sec.), Priority 3", 
412 fddi2_sink_peak_delay_a[2]); 
413 op_stat_scalar_write ("Peak End-to-End Delay-1 (sec.), Priority 4", 
414 fddi2_sink_peak_delay_a[3]); 
415 op_stat_scalar_write ("Peak End-to-End Delay-1 (sec.), Priority 5", 
416 fddi2_sink_peak_delay_a[4]); 
417 op_stat_scalar_write ("Peak End-to-End Delay-1 (sec.), Priority 6", 
418 fddi2_sink_peak_delay_a[5]); 
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op_stat_scalar_write (“Peak End-to-End Delay-1 (sec.), Priority 7", 
fddi2_sink_peak_delay_a[6]); 


op_stat_scalar_write ("Peak End-to-End Delay-1 (sec.), Priority 8", 
fddi2_sink_peak_delay_a[7]); 


op_stat_scalar_write ("Peak End-to-End Delay-1 (sec.), Synchronous", 
fddi2_sink_peak_delay_a[8]); 


op_stat_scalar_write ("Peak End-to-End Delay-1 (sec.), Overall", 
fddi2_sink_peak_delay); 


/* Write the TTRT value for ring 0. This preserves */ 
/* the old behavior for single-ring simulations. */ 
op_stat_scalar_write ("TTRT (sec.) - Ring 1", 
fddi_t_opr [1]); 


/* 12JAN94: obtain offered load information from the Environment */ 
/* file; this will be used to provide abscissa information that */ 


/* can be plotted in the Analysis Editor (see "fddi_sink" STATS */ 
/* state. To the user: it’s your job to keep these current in */ 
/* the Environment File. -Nix */ 


op_ima_sim_attr_get (OPC_IMA_DOUBLE, “total_offered_load_i", &0ffered_Load) ; 
op_ima_sim_attr_get (OPC_IMA_DOUBLE, "“asynch_offered_load_1", fAsynch_Offered_Load); 





/* 12JAN94: write the total offered load for this run */ 
op_stat_scalar_write ("Total Offered Load-1 (Mbps)", } 
Offered_Load); 
op_stat_scalar_write (“Asynchronous Offered Load-1 (Mbps)", 
Asynch_Offered_Load) ; 
} 
} 
/** blocking after enter executives of unforced state. +*+*/ 


FSM_EXIT (3,sp_fddi_sink) 


/** state (STATS) exit executives **/ 

FSM_STATE_EXIT_UNFORCED (1, statel_exit_exec, "“STATS") 

{ 

} 

/** state (STATS) transition processing **/ 
FSM_TRANSIT_MISSING ("STATS") 

fll er me en no ee re = «/ 
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454 /** state (INIT) enter executives **#/ 
455 FSM_STATE_ENTER_FORCED (2, state2_enter_exec, "INIT") 


456 { 


457 /* get the gshandles of the global statistic to be obtained */ 
458 /* 20JAN94: set array format +*/ 


459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 thru2_gshandle 
470 
471 
472 
473 
474 


475 
476 
477 
478 
479 
480 


481 
482 
483 
484 
485 
486 
487 
488 
489 
490 


491 
492 
493 
494 
495 
496 
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m2_delay_gshandle_a[5] = 
m2_delay_gshandle_a[6] = 
m2_delay_gshandle_a[7] = 
m2_delay_gshandle_a[8] = 
m2_delay_gshandle_a[9] = 


m2_delay_gshandle 


ete2_delay_gshandle_a[0] = 
ete2_delay_gshandle_a[1i] = 
ete2_delay_gshandle_a[2] = 
ete2_delay_gshandle_a(3] 
ete2_delay_gshandle_a([4] 
ete2_delay_gshandle_a[5] 
ete2_delay_gshandle_a[6] 
ete2_delay_gshandle_a[7] = 
ete2_delay_gshandle_a[8] = 
ete2_delay_gshandle 


t2_gshandle_a[0] 
t2_gshandle_a[1] 
t2_gshandle_a[2] 
t2_gshandle_a[3] 
t2_gshandle_a[4] 
t2_gshandle_a[5] 
t2_gshandle_a([6] 
t2_gshandle_a([7] 


thru2_gshandle_a[0] 
thru2_gshandle_a[1i] 
thru2_gshandle_a[2] 
thru2_gshandle_a[3] 
thru2_gshandle_a[4] 
thru2_gshandle_a[5] 
thru2_gshandle_a[6] 
thru2_gshandle_a([7] 
thru2_gshandle_a[8] 
thru2_gshandle_a[9] 


m2_delay_gshandle_a[0] 
m2_delay_gshandle_a[1] 
m2_delay_gshandle_a[2] = 
m2_delay_gshandle_a(3] 
m2_delay_gshandle_a[4] 


op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 


= op_stat_global_reg 


op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 


(“pri 1 
Ciprin2 
(ori 3 
("pri 4 
(“pri 5& 
(“pri 6 
Cpmi 7 
("pri 8 
(“synch 
(“async 
("total 


throughput-1 
throughput-1 
throughput-1 
throughput-1 
throughput-1 
throughput-1 
throughput-1 
throughput-1 
throughput-1 
throughput-1 
throughput-1 


mean 
mean 
mean 
mean 
mean 


delay-1 
delay-1 
delay-1 
delay-1 
delay-1 


(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)") ; 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"'); 


(sec. 
(sec. 
(sec. 
(sec. 
(sec. 


wee we ee 


we 


op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 


= op_stat_global_reg 


(“synch 
(“async 
("total 


op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
= op_stat_global_reg 
= op_stat_global_reg 
= op_stat_global_reg 
= op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 


= op_stat_global_reg 


op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 
op_stat_global_reg 


(“pri 
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(“pri 1 
("pri 2 
(“pri 3 
("pri 4 
("pri 5 
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CE 


CL 
CL 
CL 
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CL 
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CL 
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throughput 
throughput 
throughput 
throughput 
throughput 
throughput 
throughput 
throughput 


delay~-1 
delay-1 
delay-1 
delay-i 
delay-1 
delay-1 


end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 
end-to-end 


(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
Kbps)"; 
(bps)"'); 
(bps)"); 
(bps)"); 


(sec. 
(sec. 
(sec. 
(sec. 
(sec. 
(sec. 


delay-1 
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S11 
612 
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t2_gshandle_a[8] = op_stat_global_reg (“synch CL throughput (bps)"); 
t2_gshandle_a[9] = op_stat_global_reg (“async CL throughput (bps)"); 


t2_gshandle = op_stat_global_reg ("total CL throughput (bps)"); 
} 
/** state (INIT) exit executives +**/ 


FSM_STATE_EXIT_FORCED (2, state2_exit_exec, “INIT") 
{ 
y 


/** state (INIT) transition processing **/ 
FSM_INIT_COND (END_OF_SIM) 

FSM_DFLT_COND 

FSM_TEST_LOGIC ("INIT") 


FSM_TRANSIT_SWITCH 

{ 

FSM_CASE_TRANSIT (0, 1, statei_enter_exec, ;) 
FSM_CASE_TRANSIT (1, 0, stateO_enter_exec, ;) 


FSM_EXIT (2,sp_fddi_sink) 
I; 


void 

sp_fddi_sink_svar (prs_ptr,var_name,var_p_ptr) 
sp_fddi_sink_state *prs_ptr; 

char *var_name, **var_p_ptr; 


{ 
FIN (sp_fddi_sink_svar (prs_ptr)) 


*var_p_ptr = VOS_NIL; 

if (Vos_String_Equal ("thru2_gshandle" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_thru2_gshandle) ; 

if (Vos_String_Equal ("“m2_delay_gshandle" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_m2_delay_gshandle) ; 
if (Vos_String_Equal ("“ete2_delay_gshandle" , var_name)) 
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*var_p_ptr = (char *) (&prs_ptr->sv_ete2_delay_gshandle) ; 
if (Vos_String_Equal ("thru2_gshandle_a" , var_name)) 
*var_p_ptr = (char *) (prs_ptr->sv_thru2_gshandle_a); 

if (Vos_String_Equal ("m2_delay_gshandle_a" , var_name)) 
*var_p_ptr = (char *) (prs_ptr->sv_m2_delay_gshandle_a) ; 
if (Vos_String_Equal ("“ete2_delay_gshandle_a” , var_name)) 
*var_p_ptr = (char *) (prs_ptr->sv_ete2_delay_gshandle_a); 
if (Vos_String_Equal ("t2_gshandle" , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_t2_gshandle) ; 

if (Vos_String_Equal ("t2_gshandle_a" , var_name)) 
*var_p_ptr = (char *) (prs_ptr->sv_t2_gshandle_a) ; 

if (Vos_String_Equal ("“my_id" , var_name)) 

*var_p_ptr = (char *) (&prs_ptr->sv_my_id); 


FOUT; 
} 


void 

sp_fddi_sink_diag () 

f 

double delay, creat_time; 

Packet* pkptr; 

Packet* pkptri ; /*5APR94+/ 
int src_addr, my_addr; 

int dest_addr; /*14APR94#/ 

Ici* from_mac_ici_ptr; 

double fddi_sink_ttrt; 


FIN (sp_fddi_sink_diag ()) 


FOUT; 


void 

sp_fddi_sink_terminate () 

‘i 

double delay, creat_time; 

Packet* pkptr; 

Packet* pkptr1 ; /*5APR94+*/ 
int src_addr, my_addr; 

int dest_addr; /*14APR944/ 

Ici* from_mac_ici_ptr; 

double fddi_sink_ttrt; 
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FIN (sp_fddi_sink_terminate ()) 


FOUT; 


Compcode 

sp_fddi_sink_init (pr_state_pptr) 
sp_fddi_sink_state **pr_state_pptr; 

{ 

static VosT_Cm_Obtype obtype = OPC_NIL; 


FIN (sp_fddi_sink_init (pr_state_pptr)) 


if (obtype == OPC_NIL) 

{ 

if (Vos_Catmem_Register ("proc state vars (sp_fddi_sink)", 
sizeof (sp_fddi_sink_state), Vos_Nop, kobtype) == VOSC_FAILURE) 
FRET (OPC_COMPCODE_FAILURE) 

} 


if ((*pr_state_pptr = (sp_fddi_sink_state*) Vos_Catmem_Alloc (obtype, 1)) == OPC_NIL) 


FRET (OPC_COMPCODE_FAILURE) 

else 

{ 

(*pr_state_pptr)->current_block = 4; 
FRET (OPC_COMPCODE_SUCCESS) 

} 

} 


160 


APPENDIX G 
CDL MODEL ERROR ALLOCATION CODE 


“cdl_pt_error.ps.c” 


The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 


/* cdl_pt_error.ps.c */ 

/* Customized error allocation model for point-to-point link transceiver pipeline */ 
[EE RERER EERE EERE EEE EE EERE EEE EEE ERE EERE EERE EEE EE EEE EEE EE EE EE EEE / 

/* Last modified by Selcuk Karayakaylar */ 

/* 22APR94 */ 

[EERE EERE EE EE EE EERE EEE EEE EE EEE EEE EEE EE EEE EEE EEE EE EEE EE / 


Aan rh WN & 


7 #include <opnet.h> 
8 #include <math.h> 


9 /* Define a convenient macro for computing */ 
10 /* factorials using the gamma function +*/ 
11 #define log_factorial(n) lgamma ((double) n + 1.0) 


12 void 

13 cdl_pt_error (pkptr) 

14 Packet*  pkptr; 

15 { 

16 Objid link_objid; 

17 double pe, x, p_accum, p_exact; 

18 double log_p1, log_p2, log_arrange; 

19 double duty_cycle; /* 31MAR94 */ 

20 double jam_length, jam_ber,int_bet_jamlen, ber_bet_jamlen;/*29MAR94*/ 
21 double time_stamp; /* time stamp for the packet arriving time */ 
22 double offset; /* 1APR94 */ 

23 int invert_errors = OPC_FALSE, seg_size, num_errs; 

24 int jammer_type; /*26APR94*/ 

25 /*int channel_index;*/ /* 4APR94 */ 

26 /** Compute the number of errors assigned to the given packet + / 

27 /** based on its length and the bit error probability. + / 

28 FIN (cdl_pt_error (pkptr)) 

29 /*Make a time stamp to see whether the packet is in jamming period or not */ 
30 time_stamp = op_sim_time(); 

31 /*printf("“time_stamp = /416.12f\n", time_stamp) ; */ 

32 /* Obtain object id of point-to-point link carrying transmission. */ 

33 link_objid = op_td_get_int (pkptr, OPC_TDA_PT_LINK_OBJID) ; 
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/* Obtain the channel index for the particular link */ 
/* Determine which channel the packet is on *//*30MAR*/ 
/* channel_index = op_td_get_int (pkptr,OPC_TDA_PT_CH_INDEX) ;*//*4APR94*/ 


/* Obtain the bit-error probability of the channel. */ 
/* op_ima_obj_attr_get (link_objid, “ber", &pe); *//*ignore this attribute 31MAR94 


/* Obtain the extended attributes for the point-to-point link */ 
/* These attributes are appended in order to simulate jamming features */ 
/* 29MAR94 */ 


op_ima_obj_attr_get (link_objid, "jam_length", &jam_length); 
op_ima_obj_attr_get (link_objid, “jam_ber", &jam_ber); 

op_ima_obj_attr_get (link_objid, “interval_bet_jam_len", &int_bet_jamlen) ; 
op_ima_obj_attr_get (link_objid, "“ber_bet_jam_len", &ber_bet_jamlen) ; 
op_ima_obj_attr_get (link_objid, “init_jam_offset", koffset); 
op_ima_obj_attr_get (link_objid, "“jammer_type", &jammer_type) ; 


/* Obtain the length of the packet. */ 
seg_size = op_pk_total_size_get (pkptr); 


/* Determine the jammer type in use:26APR94 */ 
/* Check if pulsed jammer is in use */ 
if (jammer_type == 0) 


/* Randomize the jamming durations */ 
/* These durations are randomized with uniform distribution */ 
/* in range (0, duration[. User should be aware of these */ 
/* attributes specified in the environment file. They are max values */ 
/* for those particular durations */ 
jam_length = op_dist_uniform(jam_length) ; 
int_bet_jamlen = op_dist_uniform(int_bet_jamlen) ; 
I; 
/* Otherwise, channel swept jammer is in use. Jamming durations */ 
/* should not be randomized to keep consecutive pulses in order. */ 


/* Compute duty cycle for jammming */ 
duty_cycle = jam_length + int_bet_jamlen; 


/* Check time stamp if it is in the initial jam offset period */ 
/* All BER’s are uniformly distributed in range [0, ber[, so that */ 
/* realistic representation is provided; User should be aware of */ 
/* these attributes specified in the environment file. They are max values */ 
/* for those particular bers*/ 
if (time_stamp < offset) 
pe = op_dist_uniform(ber_bet_jamlen); /* the packet is still not in the jammin 
/* period */ 








else 


{ 


/* Check packet is in jamming period */ 
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if ( fmod(time_stamp,duty_cycle) <= jam_length ) 
pe = op_dist_uniform(jam_ber); /* the packet is in jamming period, */ 
/* random "pe" to be computed as jam_ber */ 
else 


pe = op_dist_uniform(ber_bet_jamlen); /* packet is in unjammed period */ 


/* random "pe" to be computed as ber_bet_jamlen */ 


} 


/*This part computes num_errs for the packet */ 
/* Case 1: if the bit error rate is zero, so is the number of errors. */ 
if (pe == 0.0 || seg_size == 0) 
num_errs = 0; 


/* Case 2: if the bit error rate is 1.0, then all the bits are in error.*/ 
/* (note however, that bit error rates should not normally exceed 0.5).+#/ 
else if (pe >= 1.0) 

num_errs = seg_size; 


/* Case 3: The bit error rate is not zero or one. */ 


else 
if 
/* If the bit error rate is greater than 0.5 and less than 1.0, invert 
/* the problem to find instead the number of bits that are not in error */ 
/* in order to accelerate the performance of the algorithm. Set a flag */ 
/* to indicate that the result will then have to be inverted. */ 


if (pe > 0.5) 
{ 
pe = 1.0 - pe; 
invert_errors = OPC_TRUE; 


} 


/* The error count can be obtained by mapping a uniform random number 
/* in [0, 1{ via the inverse of the cumulative mass function (CMF) 

/* for the bit error count distribution. 

/* Obtain a uniform random number in [0, 1[ to represent */ 
/* the value of the CDF at the outcome that will be produced. «/ 

r = op_dist_uniform (1.0); 


/* Integrate probability mass over possible outcomes until r is exceeded. 
/* The loop iteratively corresponds to "inverting" the CMF since it finds 
/* the bit error count at which the CMF first meets or exceeds the value r. 
for (p_accum = 0.0, num_errs = 0; num_errs <= seg_size; num_errs+t) 

a 


/* Compute the probability of exactly ’num_errs’ bit errors occurring. 


/* The probability that the first ’num_errs’ bits will be in error 

/* is given by pow (pe, num_errs). Here it is obtained in logarithmic 
/* form to avoid underflow for small ’pe’ or large ’num_errs_jam’. 
log_p1 = (double) num_errs * log (pe); 
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*/ 
*/ 


*/ 
«/ 


*/ 


*/ 


120 /* Similarly, obtain the probability that the remaining bits will not 





121 /* be in error. The combination of these two events represents one 

122 /* possible configuration of bits yielding a total of ’num_errs’ errors 
123 log_p2 = (double) (seg_size - num_errs) * log (1.0 - pe); ) 
124 /* Compute the number of arrangements that are possible with the same 
125 /* number of bits in error as the particular case above. Again obtain 
126 /* this number in logarithmic form (to avoid overflow in this case). 
127 /* This result is expressed as the logarithmic form of the formula for 
128 /* the number W of combinations of k items from n: W = n!/(n-k)!x! 

129 log_arrange = log_factorial (seg_size) - 

130 log_factorial (num_errs) - 

131 log_factorial (seg_size - num_errs); 

132 /* Compute the probability that exactly ’num_errs’ are present +/ 
133 /* in the segment of bits, in any arrangement. 

134 piexact = exp (log_arrange + log_pi + log_p2); 

135 /* Add this to the probability mass accumulated so far for previously 
136 /* tested outcomes to obtain the value of the CMF at outcome=num_errs*/ 
137 piaccum += p_exact; 

138 /*’num_errs’ is the outcome for this trial if the CMF meets or exceeds 
139 /* the uniform random value selected earlier. 

140 if (p_accum >= r) 

141 break; 

142 } 

143 /* If the bit error rate was inverted to compute correct bits instead, then * 
144 /* reinvert the result to obtain the number of bits in error. ‘ 
145 if (invert_errors == OPC_TRUE) 

146 num_errs = seg_size - num_errs; 

147 } 

148 /* printf("num_of_errors = %5d\n", num_errs); */ 

149 /* Set number of bit errors in packet transmission data attribute. */ 

150 op_td_set_int (pkptr, OPC_TDA_PT_NUM_ERRORS, num_errs); 

151 FOUT 

152 L 
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APPENDIX H 


SAMPLE ENVIRONMENT FILE FOR 
PULSED JAMMER 


cd14_1b0jam0. ef 

sample simulation configuration file for 

two interconnected 10 station network in the 

existence of pulsed jammer interference (137.088 Mbps channel hierarchy ) 
with circular allocation load balancing algorithm 


ee # HH 


#*** Attributes related to loading used by "fddi_gen” *+¥+ 


# station addresses 
*.ring0.f0.mac.station_address: 0 
*.ringO.f1.mac.station_address: 1 
*.ringO.f2.mac.station_address: 2 
*.ringO.f3.mac.station_address: 3 
*.ring0.f4.mac.station_address: 4 
*.ringO.f5.mac.station_address: 5 
*.ring0.f6.mac.station_address: 6 
*.ring0O.f7.mac.station_address: 7 
*.ringO.f8.mac.station_address: 8 
*.ringO.f9.mac.station_address: 9 
*.ringi.f0.mac.station_address: 10 
*.ringi.f1.mac.station_address: 11 
*.ringi.f2.mac.station_address: 12 
*.ring!.f3.mac.station_address: 13 
*.ring1.f4.mac.station_address: 14 
*.ringi.f{5.mac.station_address: 15 
*.ring1.f6.mac.station_address: 16 
*.ringi.f{7.mac.station_address: 17 
*.ring1.f8.mac.station_address: 18 
*.ring1.f9.mac.station_address: 19 


*.ringO.*.mac.ring_id :0 
*.ring1.*.mac.ring_id :1 


Specific stations may be tailored by specifying the full name: 
for example, top.ringO.f19.llc_src.async_mix : .5 

This means all stations must be specified, or individuals 

may be named after the generic is specified. 

destination addresses for random message generation 
#"top.ringO.f0.llc_src.low dest address" 
#"top.ringO.f0.llc_src.high dest address" : 


# # 2 HH & 
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“* .ringO.*.llc_src.low dest address": 10 | 
"*.ringO.*.llc_src.high dest address": 19 
“* .ring1.*.llc_src.low dest address": 0 | 
"* .ring1.*.llc_src.high dest address": 19 


# range of priority values that can be assigned to packets; FDDI 

# standards allow for 8 priorities of asynchronous traffic. MIL3’s 

# original model is modified to allow each station to generate multiple | 

# priorities, within a specified range. 
“*.*.llc_src.high pkt priority" : 7 
"*.*.lic_src.low pkt priority” : 0 


# arrival rate(frames/sec), and message size (bits) for random message é 
# generation at each station on the ring. | 


“*.*.*. arrival rate" : 250 

"*,.*.*.mean pk length" :; 20000 

#"ringO.f9.*.arrival rate": 0 ; 
#"ringO.f9.*.mean pk length": 0 
#"ringi.f9.*.arrival rate": 0 

#"ring1.f9.*.mean pk length": 0 


# TAPRO4 - S.Karayakaylar 
# determine which load balancing algorithm is in use in the CPNI 
# User should specify the algorithm before simulation. 


# 

# O (zero) ----> circular load balancing algorithm (default) 
# 1 (one) ----> empty allocation algorithm 

* 


“top.ringO.f9.llc_sink.load balancing algorithm": 0 


# 15APR94 :determine the station address of the network interfaces in 
# both rings. 

# CPHI 

“top.ringO.f£9.llc_sink.station_address": 9 

# SPHI 

“top.ring1.f9.llc_sink.station_address": 19 


# 12DEC93: total offered load is the sum of all stations’ loads (Mbps). 
# Compute this by hand; this value is useful for generating 
# scalar plots where offered load is the abscissa. 


total_offered_load_O : 50 
asynch_offered_load_O : 45 
total_offered_load_i : 50 
asynch_offered_load_i : 45 





# set the proportion of asynchronous traffic 
# a value of 1.0 indicates all asynchronous traffic 
"*.*.*.,async_mix" : 0.9 
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#*** Ring configuration attributes used by "fddi_mac" ¥*#* 


# allocate percentage of synchronous bandwidth to each station 
# this value should not exceed 1 for all stations combined; OPNET does not 
# enforce this; O1FEB94: this must be less than 1; see equation below 


"*,*.mac.sync bandwidth" : 0.08955675 

#"top.ringO.f9.mac.synce bandwidth": 0.0 

# Target Token Rotation Time (one half of maximum synchronous response time) 
# (This is commented out for compatibility with the fddi_script, which 

# sets T_Req on the simulation command line; remove the comment pound-sign 
# below to make this environment file self-sufficient.) 


# SUM(SAi) + D_Max + F_Max + Token_Time <= TTRT 

# Powers gives TTRT = 10 ms as necessary for voice transmission; in "BONeS", 
# D.Max + F_Max + Token_Time = 1.97888 ms. 

"*.*.mac.T_Req" : .004 


# Index of the station which initially launches the token 

# 17APR94 : -Karayakaylar 

# This index should be greater than the maximum station number 

# Bridge stations spawns token for interconnected simulation by default. 
“spawn station": 20 


# Delay incurred by packets as they traverse a station’s ring interface 
# see Powers, p. 351 for a discussion of this (Powers gives lusec, 

# but 60.0e-08 agrees with Dykeman & Bux) 

station_latency: 60.0e-08 


# Propagation Delay separating stations on the ring. 

# If propagation delay is 5.085 microsec/km, this corresponds to 

# to a 50 station ring with a circumference of 50 kn. 

# (The value given for propagation delay corresponds to Powers, and to 
# Dykeman & Bux) 

prop_delay: 5.085e-06 


CDL link related attributes -Karayakaylar 7APR94 
The attributes below are specified with respect to the jammer type 
There are two types of jamming models which the CDL is exposed to. 


(2) Channel-swept jammer (jammer_type = 1) 


NOTE:For pulsed jammer init_jam_offset may be zero, whereas a proper 


t 

& 

% 

& 

# (1) Pulsed jammer (jammer_type = 0) 

xg 

& 

« 

# offset should be specified for channel-swept jammer. 
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jam_length, jam_ber, interval_bet_jam_len, ber_bet_jam_len are maximum 
values in the case of pulsed jammer since they are randomized in the 
error allocation pipeline stage. 

For channel-swept jammer only jam_ber and ber_bet_jam_len attributes are 
maximium values to be randomized. 

return link 1s_0 to ls_3 

command link ls_4 


-ls_O.jammer_type: 
.1s_1.jammer_type: 
.ls_2. jammer_type: 
.1s_3.jammer_type: 
.1s_4. jammer_type: 


# 

# 

4 

4 

a 

4 

& 

*.1s_0.jam_length: 0.05 
*.1ls_1.jam_length: 0.02 
*.1s_2.jam_length: 0.01 
*.1s_3.jam_length: 0.09 
*.1s_4.jam_length: 0.06 
*.1s_0.jam_ber: 2e-3 
*,.1s_1.jam_ber: 2e-3 
*.1s_2.jam_ber: 2e-3 
*.1s_3.jam_ber: 2e-3 
*.1s_4.jam_ber: 0.0 

*.1s_0.interval_bet_jam_len: 0.03 
*.1s_1.interval_bet_jam_len: 0.03 
*.1s_2.interval_bet_jam_len: 0.03 
*.1s_3.interval_bet_jam_len: 0.03 
*.1s_4.interval_bet_jam_len: 0.03 
*.1s_0.ber_bet_jam_len: 2e-6 
*.1s_1.ber_bet_jam_len: 2e-6 
*.1s_2.ber_bet_jam_len: 2e-6 
*.1s_3.ber_bet_jam_len: 2e-6 
*.1s_4.ber_bet_jam_len: 0.0 

*.ls_O.init_jam_offset: 0.0 

*.ls_1.init_jam_offset: 0.0 

*.1s_2.init_jam_offset: 0.0 

*.1s_3.init_jam_offset: 0.0 

*.1s_4.init_jam_offset: 0.0 

x 

x 

x 

x 

os 


oo0O 0 Oo 


# Return and command link propagation delays are specified as 60 msec. 
*.1s_0.delay: 0.06 
*.ls_i.delay: 0.06 
*.ls_2.delay: 0.06 
*.1ls_3.delay: 0.06 
*.1ls_4.delay: 0.06 


#*ee Simulation related attributes 


# Token Acceleration Mechanism enabling flag. 

# It is reccomended that this mechanism be enabled for most situations 
# 16APR94 : for bridged fddi_cdl_interconnection network this flag 

# must be zero. Otherwise, program fault occurs. -Karayakaylar 
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accelerate_token: 0 


# Run control attributes 

seed: 10 
duration: 1 

verbose_sim: TRUE 

upd_int: .1 

os_file: cd14_1b0jam0 


# (This is commented out for compatibility with the fddi_script, which 

# sets the output vector file on the simulation command line; remove the 
# comment pound-sign below to make this environment file self-sufficient. ) 
ov_file: cd14_1b0jam0 


# Opnet Debugger (odb) enabling attribute 
# debug: TRUE 
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# #8 HH 
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APPENDIX I 


SAMPLE ENVIRONMENT FILE EXCERPT 
FOR CHANNEL-SWEPT JAMMER 


cd14_lbijami.ef 

sample simulation configuration file for 

two interconnected 10 station network in the 

existence of channel-swept jammer interference (137.088 Mbps channel hierarchy ) 
with empty selection load balancing algorithm 


CDL link related attributes -Karayakaylar 7APR94 
The attributes below are specified with respect to the jammer type 
There are two types of jamming models which the CDL is exposed to. 


(1) Pulsed jammer (jammer_type = 0) 
(2) Channel-swept jammer (jammer_type = 1) 


NOTE:For pulsed jammer init_jam_offset may be zero, whereas a proper 
offset should be specified for channel-swept jammer. 

jam_length, jam_ber, interval_bet_jam_len, ber_bet_jam_len are maximum 
values in the case of pulsed jammer since they are randomized in the 
error allocation pipeline stage. 

For channel-swept jammer only jam_ber and ber_bet_jam_len attributes are 
maximium values to be randomized. 
return link 1s_0 to ls_3 
command link ls_4 
-1s_0.jam_length: 0 
-1s_i.jam_length: 0 
-18_2.jam_length: 0.02 
-18_3.jam_length: 0 
-1s_4. jam_length: QO. 
-1s_0.jam_ber: 2e-3 
-1s_i.jam_ber: 2e-3 
.1s_2.jam_ber: 2e-3 
.18s_3.jam_ber: 2e-3 
-1s_4. jam_ber: 0.0 
-ls_0O.interval_bet_jam_len: 0 
-ls_i1.interval_bet_jam_len: 0 
.18s_2.interval_bet_jam_len: 0.06 
.ls_3.interval_bet_jam_len: 0 
.1s_4.interval_bet_jam_len: 0 
.1s_0.ber_bet_jam_len: 2e-6 
.ls_i1.ber_bet_jam_len: 2e-6 


ei 


* &*£ &#£ #£ &#& &# & #& &# Hi Hi OH «OF 


.ls_2.ber_bet_jam_len: 
.1s_3.ber_bet_jam_len: 
.1s_4.ber_bet_jam_len: 
.ls_O.init_jam_offset: 
-ls_i.init_jam_offset: 
.ls_2.init_jam_offset: 
-1ls_3.init_jam_offset: 
-ls_4.init_jam_offset: 
.1s_O.jammer_type: 
.ls_1.jammer_type: 
.18_2.jammer_type: 
.1s_3.jammer_type: 
.1s_4.jammer_type: 


A th BA Pe pS 
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